//========================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// -  쬥  -
//========================
//= G4.6 [¦B]
//========================

//----------------------------------------------------------------------------
// հsFĲo
//----------------------------------------------------------------------------
yuno_in01,35,179,4	script	DH#kh	46,5,5,{
	if (checkweight(7487,1) == 0) {
		mes "[Zw]";
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	switch (KielHyreQuest) {
	case 0:
		mes "[Zw]";
		mes "w{AnIǤO?";
		next;
		switch(select("s:s:Ns:U@AI")) {
		case 1:
			mes "[Zw]";
			mes "sܰWAǳơA";
			mes "ЧAy";
			next;
			mes "(qj";
			mes "ۺ}GŦ⪺m";
			mes "˺Fݰ_ӲD֪s)";
			next;
			mes "[Zw]";
			mes "o̯Ss'qo s' XӤF";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "ASs'qo s'...";
			mes "(A`ŦGbM̰{{)";
			next;
			percentheal 5,-5;
			mes "["+strcharinfo(0)+"]";
			mes "BP~";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "M...";
			mes " ouܦnܰ";
			next;
			mes "[Zw]";
			mes "ݼˤlAߺNFA";
			mes "..";
			mes "]OSs...";
			close;
		case 2:
			mes "[Zw]";
			mes "...";
			mes "ܩpȤHA";
			mes "ثesuѤU";
			mes "bAȪqFA";
			mes "YAU@AӮ";
			mes "ڤ@wAǳƦn";
			close;
		case 3:
			mes "[Zw]";
			mes "..?";
			mes "'Ns'...";
			mes "ܩpȤHA";
			mes "ڭ̤cos";
			close;
		case 4:
			mes "[Zw]";
			mes "򵥧AMwnAsڧa";
			close;
		}
	case 1:
		mes "[Zw]";
		mes "w{A";
		mes "nIǤO?";
		next;
		switch(select("s:s:Ns:аݦD?:U@AI")) {
		case 1:
			mes "[Zw]";
			mes "sܰWAǳơA";
			mes "ЧAy";
			next;
			mes "(qj";
			mes "ۺ}GŦ⪺m";
			mes "˺Fݰ_ӲD֪s)";
			next;
			mes "[Zw]";
			mes "o̯Ss'qo s' XӤF";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "ASs'qo s'...";
			mes "(A`ŦGbM̰{{)";
			next;
			percentheal 5,-5;
			mes "["+strcharinfo(0)+"]";
			mes "BP~";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "M...";
			mes " ouܦnܰ";
			next;
			mes "[Zw]";
			mes "ݼˤlAߺNFA";
			mes "..";
			mes "]OSs...";
			close;
		case 2:
			mes "[Zw]";
			mes "...";
			mes "ܩpȤHA";
			mes "ثesuѤU";
			mes "bAȪqFA";
			mes "YAU@AӮ";
			mes "ڤ@wAǳƦn";
			close;
		case 3:
			mes "[Zw]";
			mes "..?";
			mes "'Ns'...";
			mes "ܩpȤHA";
			mes "ڭ̤cos";
			close;
		case 4:
			mes "[Zw]";
			mes "...... ݼˤlAOťڤeۨۻyڡAuO...ڭ̰teHIˡAynte~MnӪ~ Iyn";
			next;
			mes "[Zw]";
			mes "........... nӪ~bʶRB |HeLӪAҥHèSjêADOne ' 쬥 ǰ|' Ǫ~...";
			next;
			mes "[Zw]";
			mes "....";
			next;
			switch(select("ӬOo˰:ڥiHA?")) {
			case 1:
				mes "[Zw]";
				mes " ...";
				mes "ڦnȤHǨSΪܤFOA";
				mes "D`p..";
				mes "uO......";
				close;
			case 2:
				mes "[Zw]";
				mes "? ........... OIк.. аݧAiHڶ?";
				next;
				switch(select("M:..ڥQ@U")) {
				case 1:
					mes "[Zw]";
					mes "Ou? uP§A!! ڤ]SnAr..";
					next;
					mes "[Zw]";
					mes ".. ڴNAneF~AMHWriDAa";
					next;
					mes "[Zw]";
					mes "nte~O'^0000ffղzΪs^000000'AneFaOA' 쬥 ǰ|' '^ff0000Qip Ӥ'^000000";
					next;
					mes "[Zw]";
					mes "NUA";
					getitem 7487,1; //ss
					set KielHyreQuest,2;
					close;
				case 2:
					mes "[Zw]";
					mes "..........";
					mes "n AѤF...";
					close;
				}
			}
		case 5:
			mes "[Zw]";
			mes "򵥧AMwnAsڧa";
			close;
		}
	case 2:
	case 3:
	case 4:
	case 5:
		mes "[Zw]";
		mes "ӨӤwgFЧAְehaA";
		mes "'^ff0000Qip Ӥ^000000'OID窺A";
		mes "쪺ܷ|J";
		close;
	case 6:
		if (!countitem(7487)) {
			mes "[Zw]";
			mes " Awgh^ӤFAoӯu§AաA oMOӤpFANOSҽЧAUa";
			next;
			select(".. ڻݭnղzΪs..");
			mes "[Zw]";
			mes " ӬOo˰ڡAAٻݭnsڡAЧAy";
			next;
			mes "½F誺n.. PF... ...";
			next;
			mes "[Zw]";
			mes "bo̡Aڰ..NOڪ۷NnFAЧAUa";
			getitem 7487,1; //ss
			set zeny,zeny+1000;
			close;
		}
	default:
		mes "[Zw]";
		mes "W@u§A";
		mes "...";
		close;
	}
//OnTouch2:
OnTouch:
	if (KielHyreQuest < 1) {
		mes "[Zw]";
		mes "...";
		mes "oXjƤF...";
		mes "...";
		set KielHyreQuest,1;
		close;
	} 
}

//----------------------------------------------------------------------------
// աFgqp
//----------------------------------------------------------------------------
yuno,217,114,6	script	iRp#kh	96,{
	if (KielHyreQuest < 6) {
		mes "[]"; 
		mes "Rgq~ gq~";
		mes "NL ټ˩O~";
		close;
	}
	else if (KielHyreQuest == 6) {
		if (KHToastGirlEnd < 1) {
			mes "[]"; 
			mes "w{~ аݻݭngq?";
			next;
			switch(select("RRUӨ:S")) {
			case 1:
				mes "[]"; 
				mes "... pO^ff0000RR^000000jjeU?";
				next;
				mes "[]"; 
				mes ".. ڪDOƱFAoOOSߪ ܦΤFO? uO^ff0000RR^000000jj Sk";
				next;
				mes "[]"; 
				mes "AѤF! O^ff0000RR^000000jjШDܡAڷMnťoo! oOڪDȤO..";
				next;
				mes "[]"; 
				mes ".. iO... ܥiڭ̪Ƥ]ΥFAHثeƧڭ̤]ŨϥΪY.. YiHܽЧA쨽ƶӦ̼tA";
				mes "te@UƦn?";
				next;
				mes "[]"; 
				mes "AunAOqդgqөӪܡAL̷|AѯMJAun⨺ǱaӪܡAڷ|hl@A";
				set KHToastGirlEnd,1;
				close;
			case 2:
				mes "[]";
				mes "ЧAU@AӨϥ~";
				close;
			}
		}
		else if (KHToastGirlEnd == 1) {
			mes "[]";
			mes "ЧA쨽ƶӦ̼t";
			mes "a^ѯMJaA";
			mes "AAOqդgqөӪܡA";
			mes "L̷|A";
			close;
		}
		else if (KHToastGirlEnd == 2) {
			mes "[]";
			mes " A^ӤFAWzFA oOwnnA ѯMJA";
			mes "ڦV^ff0000RR^000000jjݭԤ@U";
			delitem 7488,1; //efΪcl
			getitem 7488,1; //efΪcl
			set KHToastGirlEnd,3;
			close;
		}
	}
	else if ((KielHyreQuest >= 6) || (KHToastGirlEnd == 3)) {
		//KHToastGirlEnd no longer needed-- deleting.
		set KHToastGirlEnd,0;
		mes "[]";
		mes "ФjaʶRXl ˤgq~";
		close;
	}
}

//----------------------------------------------------------------------------
// ƶFӦ̼t DH
//----------------------------------------------------------------------------
lighthalzen,366,299,4	script	Ӧ̼t DH#kh	46,{
	if (checkweight(7488,1) == 0) {
		mes "[̫]";
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	if (KHToastGirlEnd < 1) {
		mes "[̫]";
		mes "ƶܡA";
		mes "ڲ{bI ЧAU@A";
		close;
	}
	else if (KHToastGirlEnd == 1) {
		mes "[̫]";
		mes "ƶܡA";
		mes "ڲ{bI ЧAU@A";
		next;
		switch(select("ڬOqդgqөLӪ:...")) {
		case 1:
			mes "[̫]";
			mes "ڰ... OqgqөLӪڡAЧA@U";
			next;
			mes "[̫]";
			mes "... ڧ⨺Fb̤FO...  bo";
			next;
			mes "[̫]";
			mes " ЦUAJ|ܮeHAҥHЧAnna";
			getitem 7488,1; //efΪcl
			set KHToastGirlEnd,2;
			close;
		case 2:
			mes "[̫]";
			mes "Aoå ťq~";
			mes "٤֥hu@?";
			mes "٦b̪~!!";
			mes "AA~򪱴NAY";
			close;
		}
	}
	else if (KHToastGirlEnd >= 2) {
		mes "[̫]";
		mes "...uO@ӱѮalA";
		mes "CѥsAhƧA|hA";
		mes "u|Qۭn..";
		close;
	}
}

lighthalzen,366,289,2	script	Ӧ̼t Uz	97,{
	switch (KHToastGirlEnd) {
	case 0:
		mes "[ťq]";
		mes "...";
		mes "]SƦbA";
		mes "CѸ˰@ƫܦˤl..";
		mes "HH..";
		close;
	case 1:
		mes "[ťq]";
		mes "z~";
		mes "ڨSb~!.";
		mes "Aݶ ڬObu@r... ";
		mes "HH..";
		close;
	case 2:
	case 3:
		mes "[ťq]";
		mes "~";
		mes "ժgqө?";
		mes "̪jju}G..";
		mes "HH...";
		close;
	}
}

//============================================================================
//  쬥ǰ| NPC
//============================================================================

//----------------------------------------------------------------------------
// ֤k (ǰ|..)
//----------------------------------------------------------------------------
yuno_fild08,196,196,5	script	֤k#kh1	102,{
	mes "[֤k]";
	mes "...ڤ]iJ'^0000FF 쬥 ǰ|^000000'";
	mes "hnO... ";
	mes "ڶSڥͦ ";
	mes "tO...uO..";
	next;
	select(" 쬥 ǰ|?");
	mes "[֤k]";
	mes "...o̬OA";
	mes "uet઺aڡA";
	mes "Х߳oǰ|HO ";
	mes "'^ff0000 쬥^000000'oHA";
	mes "ťLHes@Xܦh_ǪA";
	mes "]ȤFֿ";
	next;
	mes "[֤k]";
	mes "ҥHH^X|ʾa?";
	mes "]ӬFt̳ХߤFǰ|A";
	mes "NOoǰ|";
	next;
	mes "[֤k]";
	mes "ťunOboǰ|~ܡA";
	mes "N¾ܦnu@O..";
	mes ".. ڤ]Qioǰ|";
	close;
}

//----------------------------------------------------------------------------
// ǰ|ĵ
//----------------------------------------------------------------------------
yuno_fild08,158,194,6	script	ĵ#1::KHAGuard	852,{
	if ((KielHyreQuest < 2) || (KielHyreQuest > 31)) { 
		mes "[ĵ]";
		mes "o̬O'^FF0000 쬥 ǰ|^000000'A";
		mes "O@HiXA";
		mes "YSSOƱA";
		mes "ΨƥSnܬOiX";
		close;
	}
	else if (KielHyreQuest == 2) { 
		mes "[ĵ]";
		mes "o̬O'^FF0000 쬥 ǰ|^000000'A";
		mes "O@HiXA";
		mes "YSSOƱA";
		mes "ΨƥSnܬOiX";
		next;
		switch(select("qfwgFF:......")) {
		case 1:
			mes "[ĵ]";
			mes "Oef?ЧiDڦfHmW M~W";
			next;
			input .@KHDelivery$;
			if (.@KHDelivery$ != "Qip") {
				mes "[ĵ]";
				mes "o"+.@KHDelivery$+"A";
				mes "Tꤣbڭ̾ǰ|̭A";
				mes "ݼˤlAO˿Fa";
				close;
			}
			input .@KHDelivery$ ;
			if (.@KHDelivery$ != "s") {
				mes "[ĵ]";
				mes "аݳoOte^ff0000Qip Ӥ^000000^3355FF"+.@KHDelivery$+"?";
				mes "ڽT{@U^000000";
				next;
				mes "ĵñҰʤFۨ᭱ ";
				mes "Yظ˸m";
				next;
				mes "[ĵ]";
				mes "o̬OA";
				mes "Ӧ^ff0000Qip Ӥ^000000]q";
				mes "ШӽT{@Un?";
				mes "te~O^3355FF"+.@KHDelivery$+"^000000";
				next;
				mes "[ĵ]";
				mes "...O....O....";
				mes "..O AѤF";
				next;
				mes "[ĵ]";
				mes "gLT{G^ff0000Qip Ӥ^000000";
				mes "TOqLfA";
				mes "oSqL";
				mes "o@f~";
				next;
				mes "[ĵ]";
				mes "ЧAAT{@n";
				close;
			}
			mes "[ĵ]";
			mes "аݳoOte^ff0000Qip Ӥ^000000^3355FFs?";
			mes "ڽT{@U^000000";
			next;
			mes "ĵñҰʤFۨ᭱ ";
			mes "Yظ˸m";
			next;
			mes "[ĵ]";
			mes "o̬OA";
			mes "Ӧ^ff0000Qip Ӥ^000000]q";
			mes "ШӽT{@Un?";
			mes "te~O^3355FFs^000000";
			next;
			mes "[ĵ]";
			mes "...O....O....";
			mes "..O AѤF";
			next;
			mes "[ĵ]";
			mes "ڭnT{@UA";
			mes "'oOte'^ff0000Qip Ӥ^000000'";
			mes "'^3355FFղzΪs^000000' ?";
			next;
			select("O");
			mes "[ĵ]";
			mes "wgT{FA";
			mes "HoQ˦ñA";
			mes "ҥHAiHihF";
			close2;
			warp "kh_school",71,155;
			end;
		case 2:
			mes "[ĵ]";
			mes "YS䥦Ʊ ЧA^ha";
			close;
		}
	}
	else if (KielHyreQuest < 32) { 
		mes "[ĵ]";
		mes "аݧA٦ƶ?";
		close2;
		warp "kh_school",71,155;
		end;
	}
}

yuno_fild08,158,183,7	duplicate(KHAGuard)	ĵ#2	852

//----------------------------------------------------------------------------
// QפKkǥ
//----------------------------------------------------------------------------
kh_school,57,142,6	script	ǥ#kha	893,3,3,{
	mes "[]";
	mes "...";
	mes "AO?";
	mes "o̬OT~HiX..";
	close;

OnTouch:
	mes "[]";
	mes "LAL~";
	mes "ťLӶǻD?";
	next;
	mes "[ۤL]";
	mes "?";
	mes "@ضǻD?";
	next;
	mes "[]";
	mes "FX{F F..";
	next;
	mes "[ۤL]";
	mes "....... F...";
	mes "...";
	next;
	mes "[]";
	mes "uڡAjZ ''ADa?";
	mes "oOqeXѴNHvܡA";
	mes "O]ݨFY";
	next;
	mes "[ۤL]";
	mes "Ou?";
	mes "niȰ....";
	mes "ƴNnAͤF...";
	close;
}

kh_school,57,139,0	script	ǥ#khb	893,{
	mes "[ۤL]";
	mes "...";
	mes "@.....";
	mes "]NO...";
	mes "...";
	emotion e_swt2;
	close;
}

//----------------------------------------------------------------------------
// QipӤ
//----------------------------------------------------------------------------
kh_school,176,60,4	script	Ӥ#kh	101,{
	if (KielHyreQuest < 2) {
		mes "[Qip]";
		mes "o̬OT~HiXA";
		mes "ФnHNrd";
		close;
	}
	else if (KielHyreQuest == 2) { 
		mes "[Qip]";
		mes "аݧAƶ?";
		next;
		switch(select("ڬOӰef:S")) {
		case 1:
			mes "[Qip]";
			mes "ڡAӳo˰ڡAڹwߤF@ǰڡA٥HA|Ӫ󦭤@ǩOAЧAU@@InܡA";
			mes "YAAߨ@ܡAڴN|h䥦tӤF";
			next;
			mes "[Qip]";
			mes "٦...";
			next;
			mes "[?????]";
			mes "..z~!!!";
			next;
			mes "z~!! ~!";
			next;
			mes "........... ....... ...";
			next;
			mes "[Qip]";
			mes "'^ff0000RR^000000'ApSפF.. p쩳n줰ɭԤ~|gjOA줵߬SܡAo@ǴNA DF?";
			next;
			mes "[RR]";
			mes "...... i...iO...";
			next;
			mes "[Qip]";
			mes "^FF0000RR^000000!!";
			next;
			mes "[RR]";
			mes "..... O...DFAѮv...";
			next;
			mes "[Qip]";
			mes "... ЧA⪫~ۡANЧA^haASn~bo̳rd";
			delitem 7487,1; //ss
			set KielHyreQuest,4;
			close;
		case 2:
			mes "[Qip]";
			mes "o̬OT~HiXA";
			mes "ФnHNrd";
			close;
		}
	}
	else if (KielHyreQuest == 4) {
		mes "[Qip]";
		mes "YAƱF ";
		mes "ЧA֦^haA";
		mes "̪oǤpĤl..bO...";
		mes "......";
		close;
	}
}

//----------------------------------------------------------------------------
// RR (bǰ|)
//----------------------------------------------------------------------------
kh_school,179,39,0	script	ݦiR ǥ#kh	895,{
	if (checkweight(908,200) == 0) {
		mes "[RR]";
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	cutin "kh_elly01",2;
	if (KielHyreQuest < 4) { 
		cutin "kh_elly03",2;
		mes "[RR]";
		mes "z~! z~!";
		mes "....";
		mes "St@I˱F..";
		mes "np߰...";
	}
	else if (KielHyreQuest == 4) { 
		cutin "kh_elly03",2;
		mes "[RR]";
		mes ".... ~ ~ .....";
		next;
		switch(select("аݦƶ?:......")) {
		case 1:
			mes "[RR]";
			mes "? ...O].... ӬOn檺ApߧƱbaWF....... nbߤeXӤ~iH~";
			next;
			switch(select("ڥiHA?:.. ui")) {
			case 1:
				cutin "kh_elly02",2;
				mes "[RR]";
				mes "~";
				mes "u..u?";
				mes "uuuuu~!!";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "? ... ..";
				mes "Ou.. ڨA";
				next;
				mes "[RR]";
				mes "KAK...";
				mes "§A~§A~";
				mes "KK";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "....";
				mes "N.. nAO?";
				next;
				mes "[RR]";
				mes "..F...";
				mes "ѹ껡....";
				mes "~pߧⰵ檺";
				mes "ϥΤF.....";
				mes "ڭnhƤ~iH..";
				next;
				break;
			Case 2:
				mes "[RR]";
				mes "~ ~ .... .... а~";
				next;
				select("????");
				mes "[RR]";
				mes "а...~ ݼˤlAOefH.. ڦn~ n??n?";
				next;
				mes "֤kMۧAu}lUAF";
				next;
				switch(select("ڷ|A:کڵA")) {
				case 1:
					cutin "kh_elly02",2;
					mes "[RR]";
					mes "~";
					mes "u..u?";
					mes "uuuuu~!!";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "? ... ..";
					mes "Ou..";
					next;
					mes "[RR]";
					mes "KAK...";
					mes "§A~§A~";
					mes "KK";
					next;
					mes "["+strcharinfo(0)+"]";
					mes "....";
					mes "ڭnAO?";
					next;
					break;
				case 2:
					mes "["+strcharinfo(0)+"]";
					mes "藍_A";
					mes "ڦI...";
					next;
					cutin "kh_elly04",2;
					mes "[RR]";
					mes "...";
					mes "OOO~";
					mes "ZAuOp..";
					mes "...";
					emotion e_sob;
					close2;
					cutin "",255;
					end;
				}
			}
			cutin "kh_elly01",2;
			mes "[RR]";
			mes "~ƥѩO̫@ӡA....";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "nuUۭ.. ЧACCݬݡAunAsƴNnF?";
			cutin "kh_elly04",2;
			mes "[RR]";
			mes "O.... .... iOܩp.. 즸HNo˪eU..";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "SY ֧iDڧƧaAYְܡA쯫g誺Ӥ |A";
			next;
			mes "[RR]";
			cutin "kh_elly01",2;
			mes "! O.. O! ƬO^FF0000ѯ 1BJ 1B_h 2Bs 1B 7Bii 5 ^000000";
			next;
			mes "["+strcharinfo(0)+"]";
			mes ".... .. TOhF@I..";
			next;
			mes "[RR]";
			mes "~~~~~ ܩp~ ܩp~~~ ORRF~~";
			next;
			mes "["+strcharinfo(0)+"]";
			mes ".. O O SYڡAuO.. ݨ@ǷsưڡADǧƯqor?";
			next;
			mes "[RR]";
			mes "'^0000FFѯ^000000'M '^0000FFJ^000000'Oq ^008000^000000 '^0000FFgqӤ^000000' eU o|A '^0000FFs^000000'Oq ^008000^000000 '^FF0000s^000000'̡A";
			mes "'^0000FFii^000000'Oq '^FF0000ȷȵU^000000' ʪWiHo";
			next;
			mes "[RR]";
			mes "ܩpAڪDګܤ.. ٬OUA!";
			set KielHyreQuest,6;
			break;
		case 2:
			mes "[RR]";
			mes "...";
			break;
		}
	}
	else if (KielHyreQuest == 6) {
		if ((countitem(519) < 7) || (countitem(548) < 2) || (countitem(7182) < 5) || (countitem(7487) < 1) || (countitem(7488) < 1)) {
			cutin "kh_elly01",2;
			mes "[RR]";
			mes "'^0000FFѯ^000000'M '^0000FFJ^000000'Oq ^008000^000000 '^0000FFgqӤ^000000' eU o|A '^0000FFs^000000'Oq ^008000^000000 '^FF0000s^000000'̡A";
			mes "'^0000FFii^000000'Oq '^FF0000ȷȵU^000000' ʪWiHo";
		}
		else {
			cutin "kh_elly02",2;
			mes "[RR]";
			mes "z~ A`FAK... u§A! KK";
			next;
			mes "[RR]";
			mes "KK.. ЧAy@U~ P| հ~";
			delitem 519,7; //
			delitem 548,2; //_h
			delitem 7182,5; //ii
			delitem 7487,1; //ss
			delitem 7488,1; //efΪcl
			set KielHyreQuest,8;
			set KHPubMasterEnd,0;
			emotion e_ho;
		}
	}
	else if (KielHyreQuest == 8) {
		mes "[RR]";
		mes "~  SsRR AwgF~ K..";
		next;
		mes "[RR]";
		mes " oOP¤NڡAHH.. u§A.....!";
		next;
		mes "[RR]";
		mes " ٤DzQmjWڡAڥs ^FF0000RR^000000ARR RROڪʺ.. K..";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ڥs ^3355FF"+strcharinfo(0)+"^000000";
		next;
		cutin "kh_elly02",2;
		mes "[RR]";
		mes "K...  O^3355FF"+strcharinfo(0)+"^000000/pj...";
		getitem 538,5; //
		set KielHyreQuest,10;
	}
	else if (KielHyreQuest == 10) {
		mes "[RR]";
		mes ".....а... ٦@ӽШD iHAUA?";
		next;
		switch(select("O˪ШDO?:藍_ ڲ{bI..")) {
		case 1:
			mes "[RR]";
			mes "... ]NO... ڨӻ@D`nݷ sb";
			next;
			mes "[RR]";
			mes "]O"+strcharinfo(0)+" /pjUA~Nܦnr! eONJ.. KK.. ........";
			next;
			mes "[RR]";
			mes ".. ҥH.. ڷQ... eݷ o! YݷݯݨoǪ L@w|ܰ";
			next;
			mes "[RR]";
			mes "YiH ڷQ˦۰eLA]{bڤ}ǰ|YAɶ[F]|ܪ nY..";
			next;
			mes "[RR]";
			mes "....... ......... ...........";
			next;
			switch(select("naAڨӰeLa:{bڦI")) {
			case 1:
				cutin "kh_elly02",2;
				mes "[RR]";
				mes "z~ u§A! "+strcharinfo(0)+" /pj uܿˤڡAK... KK..";
				next;
				mes "[RR]";
				mes "ݷݥثeb'^FF0000ݷݥثeb^000000'̰ڡAARRsڨӨLܡAL|A";
				set KielHyreQuest,12;
				break;
			case 2:
				cutin "kh_elly03",2;
				mes "[RR]";
				mes "OO...";
				mes "NSko..";
				mes "......";
				break;
			}
			break;
		case 2:
			cutin "kh_elly03",2;
			mes "[RR]";
			mes "O!";
			mes ".. NSko..";
			mes "...";
			break;
		}
	}
	else if (KielHyreQuest == 12) {
		mes "[RR]";
		mes "'^FF0000 쬥 O^000000'Ob '^FF0000ǰ|_^000000'";
	}
	else if (KielHyreQuest == 14) {
		cutin "kh_elly03",2;
		mes "[RR]";
		mes "... ݷݦbXt? ......";
		next;
		mes "[RR]";
		mes "uO_ǧr... LSLnhXtr.. Lѷ|b Oָ̰..";
		next;
		cutin "kh_elly04",2;
		mes "[RR]";
		mes "а.. iHЧAAh@? F! o@ڵAAݷݵLڪOָɧU_ͧaA";
		mes "γo^FF0000_^000000ܡANiHiJOָ̭";
		getitem 7489,1; //Villa_Spare_Key
		set KielHyreQuest,16;
	}
	else if ((KielHyreQuest >= 14) && (KielHyreQuest < 20)) {
		mes "[RR]";
		mes "u_ǰ...";
		mes "L|b̪...";
		mes "..";
	}
	else if (KielHyreQuest == 20) {
		mes "[RR]";
		mes "? oO..... .....";
		next;
		mes "RR}KʪHʤA}l\ŪHF";
		next;
		mes "-RR-";
		mes "کMlƱnӶqA";
		mes "ҥHn^ѮalA";
		mes "۱qdo@ʫH@§ ";
		mes "SsڪܡA";
		mes "ЧAaگdA~";
		mes "ֳt}ǰ|aA";
		mes "FOæbO֪ѩи̡A";
		mes "pAPǭnUAܡA";
		mes "ХsAPǨO֥hA";
		mes "ХLXڪܸڱϥXӡANo˧iDLaA";
		mes "]\oO@ΫܦMIƱ]@w..";
		mes "unOABͪܡA";
		mes "NOȱoH઺H..";
		mes "uOǰ|ǥͩMH";
		mes "OQ\A";
		mes "]\L̥iO";
		mes "YH]@wA";
		mes "ȥnp߰ڡA";
		mes "                 ݷ ..";
		next;
		cutin "kh_elly03",2;
		mes "[RR]";
		mes "۱qݷ... dUH@Ѷ}lwgLFQѰ... DOݷݦJ? ڭnO? ..";
		delitem 7490,1; //Letter_to_Elly
		set KielHyreQuest,22;
	}
	else if (KielHyreQuest == 22) {
		cutin "kh_elly03",2;
		mes "[RR]";
		mes ".........";
		next;
		switch(select("߰ݦݷݪƱ:߰ݦlƱ:߰ݦǰ|Ʊ")) {
		case 1:
			mes "["+strcharinfo(0)+"]";
			mes "RR@ݷݡA";
			mes "쩳O˪H?";
			mes "nQ@ܽƱ񨭰";
			next;
			mes "[RR]";
			mes "کһݷݬO  쬥";
			mes "]Ϊ| '^FF0000 쬥^000000' ";
			mes "|Ͱ";
			next;
			mes "[RR]";
			mes "iOڱqpNOt઺ڡA";
			mes "D`kRڡA";
			mes "Np˷ݷݤ@˪HڡA";
			mes "Mݰ_ӤY¡A";
			mes "߸̽TOHŷx}";
			next;
			mes "[RR]";
			mes "ڰ.. ݷ.. A٥w..";
			break;
		case 2:
			mes "["+strcharinfo(0)+"]";
			mes "HWҼgݷݪlA";
			mes "'^0000FF^000000'O˪HO?";
			mes "ݼˤlMݷݪYӦn";
			next;
			mes "[RR]";
			mes "'^0000FF^000000'ͦѹ껡ڤ]ӲMڡA";
			mes "ǰ|b|y";
			mes "uL@";
			next;
			mes "[RR]";
			mes "iOLլO|QѰOA";
			mes "ۦBNȾvåΫD`iȪ";
			mes "ݵۧڭ̾ǥͰ";
			next;
			mes "[RR]";
			mes "MOkͦۺ}GyJ";
			mes "MեֽO@}GHA";
			mes "ͷNH]yLW𪺤@ӤHA";
			mes "bǥ̤ͭ '^0000FF^000000'ͪp";
			mes "]h";
			next;
			mes "[RR]";
			mes "iOݷݩM '^0000FF^000000'͡A";
			mes "POӦnˤl";
			next;
			mes "[RR]";
			mes "unObݷݭe'^0000FF^000000'ͪܡA";
			mes "LN|oʮ𪺡A";
			mes "L̦nFƷ~Ʊ``n";
			next;
			mes "[RR]";
			mes "|oˤlO?";
			mes "LO}GlM";
			mes "}˰..";
			break;
		case 3:
			mes "["+strcharinfo(0)+"]";
			mes "oǰ|O˪aO? Oǰ|Ow]ܹA]Ƥ]䥦ǰ| ݰ_Ӱ";
			next;
			mes "[RR]";
			mes "oO  쬥 ]Ωҳп쪺AFt̩ҳп쪺Mǰ|AQ¾~A|oMШ|";
			next;
			mes "[RR]";
			mes "ڡAڪ@OQdԤq M  쬥 `q¾ȡA'^0000FFRRƶ^000000'pj@ܦ@}Gpj Oڪ@! KK..";
			next;
			mes "[RR]";
			mes "iO.... .. ̪bǮո oͤ@ǩ_ǪƱAN]o˫Ĥl̳` Wۤ@ӤHʰ..";
			next;
			cutin "kh_elly02",2;
			mes "[RR]";
			mes "LڬO٦n! pGڹJMI '"+strcharinfo(0)+"'/pj|UڪAKK..";
			next;
			switch(select("^0000FFRRƶ^000000pj?:_ǪƱ?")) {
			case 1:
				mes "[RR]";
				mes "OݷݱqƯ";
				mes "u@¾ȪHA";
				mes "Oȱoݷݬ۫HH઺kHA";
				mes "O@D`}GnߤH";
				break;
			case 2:
				cutin "kh_elly04",2;
				mes "[RR]";
				mes "oO@QTҪD.. ']"+strcharinfo(0)+"'/pjOȱoH઺HAҥHNiDAa";
				next;
				mes "[RR]";
				mes "̪bǮո XSF!!";
				next;
				mes "[RR]";
				mes "FCߦbǰ|̹CAunOHť FҰ᪺GɡA|ܦwHΰ";
				next;
				mes "[RR]";
				mes "MڨϥΦP@өж'k'ADFG媺`ӥۤƤFAثee@ǤF..";
				mes "ڭ̦bѮvpUAi@ǥhݤFk..";
				next;
				mes "[RR]";
				mes "kצbɤWAݦSͩRHΤ@ˡAoܤ]S󪺦^... oGuOťݤ ƪˤlC";
				next;
				mes "[RR]";
				mes "ڷPD``ȡANq@Ǹ̰kXӤF..";
				next;
				mes "[RR]";
				mes "D@ѧڤ]I쨺ӫFܡA]|k@˨˪Qۤƶ? ɭԳs.. '" + strcharinfo(0) + "'/pj ]{XڨӤF?";
				next;
				cutin "kh_elly02",2;
				mes "[RR]";
				mes ".. Ӥ|Oo˧a! pڨFܦۤƪܡA'" + strcharinfo(0) + "'/pj|ӱϧڪ! K";
				next;
				mes "[RR]";
				mes "ڥۤƮ'"+ strcharinfo(0) +"'/pj ۧڻA'^FF0000nAΤF _ɤFRR^000000'ܡAڴNiHW_ɬʤFAҥHڤӷ|`ȫFڡAK..";
				set KielHyreQuest,24;
				break;
			}
		}
	}
	else if (KielHyreQuest >= 24 && KielHyreQuest <= 26) {
		cutin "kh_elly04",2;
		mes "[RR]";
		mes ".. JF! n@~ɶ֭nF!! ڲ{bnh Qip ӤӰ";
		next;		
		mes "[RR]";
		mes "а.. .. KܥiHO֥h^FF0000ݷݩүdUӪ~^000000 ? کүH઺H u'"+strcharinfo(0)+"'/pj...";
		next;
		mes "[Qip]";
		mes "RR!! n檺@~٦F? p쩳D.. {bOXIO?!!";
		next;
		mes "[RR]";
		mes "z! ڭ̳ı߮ɦAa! ЧAڱJ٩ж";
		next;
		mes "[RR]";
		mes "J٦bǰ| аؿvb@_AڪжbJ 2ӫ᭱ k䪺жAзflWӧaAڷ|ⵡᥴ}";
		set KielHyreQuest,26;
	}
	else {
		mes "[RR]";
		mes "ЧA}aA";
		mes "Ѯv|WLӪ";
	}
	close2;
	cutin "",255;
	end;
}

//----------------------------------------------------------------------------
// RRж
//----------------------------------------------------------------------------
yuno_fild08,69,185,0	script	#kh	111,{
	if (KielHyreQuest < 29) {
		mes "OY@ӤHжA";
		mes "ݦ@kĤlжA";
		mes "q_̥iHݨiR᯾î";
		close;
	}
	else if (KielHyreQuest== 29) {
		mes "oORRһRRж..";
		mes "ݤlA";
		mes "ݼˤln٨S^ӧr";
		close;
	}
	else if ((KielHyreQuest >= 30) && (KielHyreQuest <= 45)) {
		mes "oORRжA٬OݤlڡA? yL}F@I_AݼˤlOkiHWh..";
		next;
		mes "...ݼˤlOiHQαƤ ....";
		next;
		switch(select("QαƤ:M䥦k")) {
		case 1:
			if (rand(1,3) == 2) {
				mes "f۱Ƥ޶iJFRRж";
				close2;
				warp "kh_school",185,185;
				end;
			}
			else {
				mes "f۱ƤުWhSƤUӤF";
				percentheal -10,0;
				close;
			}
		case 2:
			mes "MOka";
			close;

		}
	}
	else {
		mes "n٨SoRڡA";
		mes "sA^O֧a";
		close;
	}
}

//----------------------------------------------------------------------------
// RR (bJ)
//----------------------------------------------------------------------------
kh_school,177,180,4	script	Elly	895,{
	if (checkweight(908,200) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	if (KielHyreQuest < 30) {
		mes "[RR]";
		mes "AO!";
		mes "ЧA}o";
		close2;
		percentheal -99,0;
		warp "yuno_fild08",100,100;
		end;
	}
	else if (KielHyreQuest < 32) {
		mes "[RR]";
		mes "............";
		next;
		mes "[RR]";
		mes "............";
		close;
	}
	else if (KielHyreQuest == 32) {
		mes "[RR]";
		mes "............";
		next;
		mes "DRR.. QۤƤF.. nO..";
		next;
		switch(select("յĲI@URR:յĲI@URR:ޥ")) {
		case 1:
			mes "ڬB_ŸݪAF@URRu";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "RR? RR?";
			next;
			mes "S.. 쩳O@^ư..";
			close;
		case 2:
			input .@KHInput$;
			if (.@KHInput$ == "OAΤF_ɤFRR") {
				mes "[RR]";
				mes ".............";
				next;
				mes "RR򪺮YP}FAF^3355FFp_^000000M ^3355FFs^000000 ...? oOr?";
				getitem 7493,1; //Golden_Key
				getitem 7494,1; //Kiel_Button
				set KielHyreQuest,34;
				close;
			}
			else {
				mes "[RR]";
				mes "..........";
				next;
				mes "RRS";
				close;
			}
		case 3:
			mes "[RR]";
			mes "..........";
			next;
			mes "RRS";
			close;
		}
	}
	else if (KielHyreQuest == 34) {
		if (countitem(7491) < 1) {
			mes "^3355FFqRRWo쪺^FF0000_^000000AӥiH}^0000FFǦcl^000000^000000";
			close;
		}
		else {
			mes "^3355FFqRRWo쪺^FF0000_^000000AӥiH}^0000FFǦcl^000000^000000";
			next;
			next;
			mes "^ff0000_^000000}^0000FFcl^000000A b}Ҫ^0000FFcl^000000̭o{^00CC52ȱ^000000M ^0000FFŦ_ͥd^000000";
			next;
			mes "}FTҡA RR..";
			mes "HA̪ڡAHKF!";
			mes "Ao{oclɡAڥiwgJMIA";
			mes "puA}ҳoӽcl";
			mes "ڴNwߤFAڴNڪͩRHUAFA";
			mes "HΡAYAݨLF ڷQA]D";
			mes "AwgOHFA";
			mes "ԲӪƱAiutܴNDFA";
			mes "utJfOb^0000FFа䪺Ӧa^000000A";
			mes "аROa RRA";
			mes "ЧAhbutKж̪^0000FFRRƶ^000000aA";
			mes "ڦbkHOwtΤWJFڪWrA";
			mes "k|ӱϧڪ";
			getitem 7495,1; //Blue_Key_Card
			delitem 7491,1; //Iron_Box
			set KielHyreQuest,36;
			close;
		}
	}
	else if (KielHyreQuest >= 36) {
		mes "bcḽȱApUo˼g";
		next;
		mes "}FTҡA RR..";
		mes "HA̪ڡAHKF!";
		mes "Ao{oclɡAڥiwgJMIA";
		mes "puA}ҳoӽcl";
		mes "ڴNwߤFAڴNڪͩRHUAFA";
		mes "HΡAYAݨLF ڷQA]D";
		mes "AwgOHFA";
		mes "ԲӪƱAiutܴNDFA";
		mes "utJfOb^0000FFа䪺Ӧa^000000A";
		mes "аROa RRA";
		mes "ЧAhbutKж̪^0000FFRRƶ^000000aA";
		mes "ڦbkHOwtΤWJFڪWrA";
		mes "k|ӱϧڪ";
		close;
	}
}

//----------------------------------------------------------------------------
// 洣x
//----------------------------------------------------------------------------
kh_school,175,176,0	script	洣x#kh	111,{
	if (KielHyreQuest < 30) {
		mes "^3355FFIt's a cookie";
		mes "basket filled with";
		mes "delicious cookies.^000000";
		close;
	}
	else if (KielHyreQuest == 30) {
		mes "ORR洣xAb˺檺_ؤ ݨFզ⪫A_F@ o{F^FF0000ȱ^000000";
		next;
		switch(select("\Ūݬ:ޥ")) {
		case 1:
			mes "۶¦Akl";
			mes "L۩_ǪG䨫ۡA";
			mes "unOť쨺өG";
			mes "Ĥl̹ӤHΤ@˳QۤƤF!";
			mes "niȰ..";
			mes "{b^ж";
			mes "bgoiȱڡA";
			mes "ڧⵡᥴ}FA";
			mes "ڰ..";
			mes "DA_ݨoǦr?";
			mes "Dڤ]|B̤ͭ@˳QȰ?";
			mes "n!";
			mes "ڤQ˰..";
			mes "ڡAnť쨺ӤHbn..";
			mes " '"+strcharinfo(0)+"/pj!!";
			set KielHyreQuest,32;
			close;
		case 2:
			mes ".........";
			close;
		}
	}
	else if (KielHyreQuest < 108) {
		mes "\ۺCCNo";
		close;
	}
	else if (KielHyreQuest == 108) {
		mes "Ȯɬݵ洣xɡA";
		mes "q}Ҫᨺ̧jiӪ";
		mes "洣xyLjʤF@UA";
		mes "bUݨF٨SQo{";
		mes "^FF0000HA^000000";
		mes "]\O.. RRҼg^FF0000H^000000";
		next;
		mes "g"+strcharinfo(0)+"..";
		mes "ڷRRMO@Agj~ʥXCQѮv|HA";
		mes "ѽTNܦDAoQѮvgFOA";
		mes "ڷQoO"+strcharinfo(0)+"/pjYڡAu§A!";
		mes "ݨ"+strcharinfo(0)+"o˪/pjܡA@ɤWٯu\hnߤH.. |oطQkڡA";
		mes "u||HѮv̳OFRRn~|o.. {򪺤ߦI]}A";
		mes strcharinfo(0)+"/pjOnH.. ڳwAӤ߷UA";
		mes "M{b٤ਣڷݷݡApਣڷݷݪܡAڷQ "+strcharinfo(0)+"/pjеڷݷݻ{ѡA";
		mes "pڷݷݨ"+strcharinfo(0)+"/pjܡA]|⥭`Yªզ_ӨùۧALA";
		mes strcharinfo(0)+"/pjAA@P§AA";
		mes "ƱûbRRARRnHaA";
		mes "ڤ]|յۧVOa"+strcharinfo(0)+"/pj@ӷLH!";
		mes " ";
		mes "@@@@@@@@@@@RR";
		next;
		mes "q氮x̡̪A";
		mes "٬OiHPı";
		mes "RR..";
		mes "ڮ_@";
		mes "jjrF@fA";
		mes "yLIW߫A";
		mes "JOobL";
		set KielHyreQuest,109;
		next;
		input .@input$;
		mes "["+strcharinfo(0)+"]";
		mes ""+.@input$+"";
		mes "^haASzѯdboF";
		close2;
		warp "yuno_fild08",69,183;
		end;
	}
	else {
		mes "ɶy̭˵a";
		close;
	}
	end;
}

//----------------------------------------------------------------------------
// Elly's Window (In Dormitory)
//----------------------------------------------------------------------------
kh_school,188,185,0	script	#kh2	111,{
	warp "yuno_fild08",69,183;
	end;
}

//----------------------------------------------------------------------------
// Grave/Kiel Hyre dungeon entry
//----------------------------------------------------------------------------
yuno_fild08,71,170,0	script	X#kh	111,{
	if (KielHyreQuest < 36) {
		mes "OY@ӤHX";
		close;
	}
	else if (KielHyreQuest == 36) {
		if (countitem(7492) < 1) {
			mes "ˬdXөPɵo{Fê";
			next;
			mes "JӪ[Ao{FiHJYتF誺p_ةMƦrO";
			close;
		}
		else {
			mes "ˬdXөPɵo{Fê";
			next;
			mes "JӪ[Ao{FiHJYتF誺p_ةMƦrO";
			next;
			mes "bp_ظ̩JO?";
			next;
			input .@KHInput$;
			if (.@KHInput$ == "_ͥd") {
				mes "J'^0000FF_ͥd^000000'A'~'@n åBǥXHnFAпJ'^008000t^000000 '";
				next;
				input .@KHInput$;
				next;
				if (.@KHInput$ == "4772961") {
					mes "JFƦr";
					mes "'T{A";
					mes "^FF0000 쬥^000000 wzA";
					mes "'~'@nX{Fq";
					set KielHyreQuest,38;
					close;
				}
				else {
					mes "JFƦr't~A";
					mes "ЧAsJ";
					close;
				}
			}
			else {
				mes "S";
				close;
			}
		}
	}
	else if ((KielHyreQuest >= 38) && (KielHyreQuest < 106)) {
		mes "qutwg}ҵ";
		next;
		switch(select("ih:ih")) {
		case 1:
			warp "kh_dun01",3,230;
			end;
		case 2:
			mes "........";
			close;
		}
	}
	else if (KielHyreQuest >= 106) {
		if (countitem(7509) < 1) {
			mes "qutwg";
			close;
		}
		else {
			mes "XӮ䤧A";
			mes "bXӪY@W";
			mes "}l{{ۥ~";
			next;
			switch(select("ϥ^FF0000R_ͥd^000000:z")) {
			case 1:
				mes "ϥ_ͥdAΦFqq";
				next;
				switch(select("ih:ih")) {
				case 1:
					warp "kh_dun01",3,230;
					end;
				case 2:
					mes ".........";
					close;
				}
			case 2:
				mes ".........";
				close;
			}
		}
	}
}

//============================================================================

//============================================================================
//   ̬ ONPC
//============================================================================

//----------------------------------------------------------------------------
// Oֺޮa
//----------------------------------------------------------------------------
yuno_fild02,93,210,4	script	Oֺޮa#kh	85,{
	if ((KielHyreQuest < 12) || (KielHyreQuest > 12)) {
		mes "[Oֺޮa]";
		mes "]o̬Opa ";
		mes "ҥHHKiX";
		close;
	}
	else if (KielHyreQuest == 12) {
		mes "[Oֺޮa]";
		mes "]o̬Opa ";
		mes "ҥHHKiX";
		next;
		switch(select("ڬOnӨ^FF0000 쬥^000000:AѤF")) {
		case 1:
			mes "[Oֺޮa]";
			mes "аݦƥn?";
			next;
			switch(select("O:S")) {
			case 1:
				mes "[Oֺޮa]";
				mes "D`pA{bDHXtAҥHਣ";
				next;
				mes "[Oֺޮa]";
				mes "DH{bXtAҥHਣ";
				set KielHyreQuest,14;
				close;
			case 2:
				mes "[Oֺޮa]";
				mes "YSƥn Oਣ";
				next;
				mes "[Oֺޮa]";
				mes "DH{bXtAҥHਣ";
				close;
			}
		case 2:
			mes "[Oֺޮa]";
			mes "Ao";
			close;
		}
	}
}

//----------------------------------------------------------------------------
// O֪ (left)
//----------------------------------------------------------------------------
yuno_fild02,75,218,0	script	#kh2	111,{
	if (KielHyreQuest < 16) {
		mes "@DQ";
		close;
	}
	if (KielHyreQuest == 16) {
		mes "@DQ";
		next;
		switch(select("}:ޥ")) {
		case 1:
			mes "ϥ_ͥ}Aq_̱F@ӯȱAȱWg '^FF0000e 6B 3Be3B4^000000A";
			close2;
			set KielHyreQuest,18;
			warp "kh_vila",188,18;
			end;
		case 2:
			mes ".......";
			close;
		}
	}
	else {
		mes "@D}Ҫ";
		next;
		switch(select("ih:ih")) {
		case 1:
			warp "kh_vila",188,18;
			end;
		case 2:
			close;
		}
	}
}

//----------------------------------------------------------------------------
// Cottage Door (Right)
//----------------------------------------------------------------------------
yuno_fild02,109,218,0	script	#kh1	111,{
	if (KielHyreQuest != 16) {
		mes "@DQ";
		close;
	}
	if (KielHyreQuest == 16) {
		mes "@DQ";
		next;
		switch(select("}:ޥ")) {
		case 1:
			mes "qRṞo쪺_ͤϥ";
			close;
		case 2:
			mes ".......";
			close;
		}
	}
}


//----------------------------------------------------------------------------
// Store room interior; Wall
//----------------------------------------------------------------------------
kh_vila,191,14,0	script	#kh	139,1,1,{
	if (KielHyreQuest < 28) {
		mes "ª";
		close;
	}
	if (KielHyreQuest >= 28) {
		mes "𭱯}X{F@ӯKq";
		next;
		switch(select(":")) {
		case 1:
			warp "kh_vila",17,177;
			end;
		case 2:
			close;
		}
	}

OnOpenDoor:
	misceffect 316;
	end;
}

//----------------------------------------------------------------------------
// Store room interior; books
//----------------------------------------------------------------------------
kh_vila,184,20,0	script	#kh1::BookKHQ1	111,{
	if (KielHyreQuest != 26) {
		mes "Ѧb";
		close;
	}
	else if (KielHyreQuest == 26) {
		if (rand(1,10) == 8) {
			mes "qѬ[̧Ѯ_ӮɡAӱǪ𭱯}X{F@ӳq";
			donpcevent "Wall#kh::OnOpenDoor";
			set KielHyreQuest,28;
			close;
		}
		else {
			mes "Ѧb";
			close;
		}

	}

}

kh_vila,181,20,0	duplicate(BookKHQ1)	#kh2	111

kh_vila,178,20,0	duplicate(BookKHQ1)	#kh3	111

kh_vila,175,19,0	duplicate(BookKHQ1)	#kh4	111

//----------------------------------------------------------------------------
// Store room interior; Letter to Elly on the floor.
//----------------------------------------------------------------------------
kh_vila,179,11,0	script	H#kh	-1,1,1,{
//OnTouch2:
OnTouch:
	if (KielHyreQuest == 18) {
		if (checkweight(7490,1) == 0) {
			mes "Цbo̼Ȱ@U !!";
			mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
			close;
		}
		mes "o{FbaOW'^FF0000H^000000'";
		getitem 7490,1; //Kyll_Hire_Letter
		set KielHyreQuest,20;
		close;
	} 
	else{
		mes "aOWOŪŪ";
		close;
	}
	end; 
}

//----------------------------------------------------------------------------
// Cottage interior, kitchen; Box (Pet Food vending machine)
//----------------------------------------------------------------------------
kh_vila,16,175,0	script	cl#khp1	111,{
	mes "@@@nY iSd";
	mes "@ d} ۰ʳcA";
	mes "@@@FAiRd";
	mes "@@@@ߤ@!";
	mes "@MWҳc檺@d}";
	mes "@@@@@O@˪!";
	mes "ϥΤk:";
	mes "1100Jf̡A";
	mes "@@@ ⩹k2A";
	mes "@@@ bf̷|X{";
	mes "@@nY iSd}";
	next;
	switch(select("ʶR:ʶR")) {
	case 1:
		if (zeny < 1100) {
			mes "SiHJf";
			close;
		}
		else {
			mes "ݨӬOIQF٬OʶRa";
			next;
			mes "uOd}ư";
			set zeny,zeny-1100;
			getitem 537,1;	//Pet_Food
			close;
		}
	case 2:
		mes "PıIӹl";
		close;
	}
}

//----------------------------------------------------------------------------
// Cottage interior, kitchen; Apple Box (Useless?)
//----------------------------------------------------------------------------
kh_vila,30,184,0	script	īG cl#khp1	111,{
	mes "̭˺ۦnYīG";
	mes "@";
	next;
	switch(select(":")) {
	case 1:
		mes "..QnhīGɭԡA";
		mes "bIPı@ѴHNA";
		mes "DOb?";
		next;
		mes "ݼˤl٬OnnF";
		close;
	case 2: 
		mes "PıIӹl";
		close;
	}
}

//----------------------------------------------------------------------------
// Cottage interior, dining room; Map
//----------------------------------------------------------------------------
kh_vila,44,126,0	script	a#khp1	111,{
	if ((KHCottagePoem1 < 2) && (KielHyreQuest < 30)) {
		mes "ۤ@T}GaϡAWe c--̼w[MqoowA䦳ۧOaAO@ӤMaA";
		mes "ӷQݥJӤ@INΤhĲNaϮɡAĲNF@ӲʧF";
		next;
		switch(select("nhz:h[@I")) {
		case 1:
			mes "ݼˤläO򭫭n~";
			close;
		case 2:
			mes "gLJ[GAaϬOccTwbWAnOν";
			mes "ҩTwA";
			mes "Y⽦HʭC";
			mes "ӬOiHޱ";
			set KHCottagePoem1,1;
			close;
		}
	}
	else  if ((KHCottagePoem1 == 2) && (KielHyreQuest < 30)) {
		mes "γҥX{]AæaϪAaϤ@IIiH}lް_ӤF";
		next;
		mes "yL_ӦaϫAaϫ 'N~' @nAF@ӪFA߰_ӬݬO@iQ|b ȱi";
		next;
		mes "ȱiWg pU몺e";
		next;
		mes "^0000FF\atܡAqkHŦ|}ҡAkHŦpz@ˡA";
		mes "kHҦbap_Be@˧NAڬF䨺kHA|_F|CM|DMF";
		mes "Ĥ@CO RAĤGCO AĤTCO Aĥ|CO ƱA";
		mes "FM䨺kHҦbaAF@ϨkHA|_F|CAM|DMF^000000";
		next;
		mes ".....Oۤ˪Nq ڤ]M";
		set KHCottagePoem1,3;
		close;
	}
	else  if ((KHCottagePoem1 > 2) || (KielHyreQuest >= 30)) {
		mes "o̬Oog۸֯ȱaA";
		mes "AT{@Uֶ?";
		next;
		switch(select("T{@U:Sn")) {
		case 1:
			mes "ȱiWg pU몺e";
			next;
			mes "^0000FF\atܡAqkHŦ|}ҡAkHŦpz@ˡA";
			mes "kHҦbap_Be@˧NAڬF䨺kHA|_F|CM|DMF";
			mes "Ĥ@CO RAĤGCO AĤTCO Aĥ|CO ƱA";
			mes "FM䨺kHҦbaAF@ϨkHA|_F|CAM|DMF^000000";
			next;
			mes ".....Oۤ˪Nq ڤ]M";
			close;
		case 2:
			mes "PıWSoӥn";
			close;
		}
	}
}

//----------------------------------------------------------------------------
// Cottage interior, kitchen; Pot
//----------------------------------------------------------------------------
kh_vila,33,184,0	script	#khp1	111,{
	if (KHCottagePoem1 < 1) {
		mes "ۼ˪A˪]CCƤWӤ";
		close;
	}
	else if (KHCottagePoem1 == 1) {
		mes "ۼ˪A˪]CCƤWӤ";
		next;
		mes "˪]...?!";
		mes "DγoӥiiH";
		mes "aϤW}O?";
		next;
		switch(select("ոլ:ݼˤlӥi檺ˤl")) {
		case 1:
			mes "^FF0000oF˻]𪺳^000000Ap߿SˤF@Iۤv";
			set KHCottagePoem1,2;
			close;

		case 2:
			mes "M䥦ka";
			close;
		}
	}
	else if ((KHCottagePoem1 > 1) || (KielHyreQuest >= 30)){
		mes "oӦaOۼ˻]a";
		close;
	}
}

//----------------------------------------------------------------------------
// Cottage interior, fire place; Calabash
//----------------------------------------------------------------------------
kh_vila,14,55,0	script	Ī~#khp1	111,{
	if ((countitem(7329) < 1) && (countitem(7516) < 1) && (countitem(7491) < 1) && (KielHyreQuest < 38)) {
		if (checkweight(7329,1) == 0) {
			mes "Цbo̼Ȱ@U !!";
			mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
			close;
		}
		mes "ݰ_ӫܶQĪ~A";
		mes "..nO?";
		next;
		switch(select("~l}ݬ:ˬḓ:z")) {
		case 1:
			mes "ݰ_ӫܶQ....";
			mes "HKðʧOHF";
			close;
		case 2:
			mes "쩳|O? .....";
			next;
			mes "~l_ӻn̮ɡAb̭ť'~' @nAGM̭ YتF";
			next;
			mes "oF'^FF0000}»ű_^000000'";
			getitem 7329,1; //Old_Bronze_Key
			close;
		case 3:
			mes "ݰ_ӥuOq~lA";
			mes "Mݰ_ӬOIQ..";
			close;
		}
	}
	else {
		mes "Oo}»ű_ͪĪ~A";
		mes "ݰ_ӫܶQ";
		close;
	}
}

//----------------------------------------------------------------------------
// Cottage interior, garden; Pool
//----------------------------------------------------------------------------
kh_vila,39,41,0	script	#khp1	111,{
	if ((KHCottagePoem1 < 3) && (KielHyreQuest < 30)) {
		mes "ݰ_Ӧ۲D֪nb";
		next;
		mes "....Ӥܧa?";
		close;
	}
	else if ((KHCottagePoem1 == 3) && (KielHyreQuest < 30)) {
		mes "ݰ_Ӧ۲D֪nb";
		next;
		mes "ݨFlMӧAiHԩԬݶ?";
		next;
		switch(select("ԩԬ:h")) {
		case 1:
			mes "nԭ@өO?";
			next;
			switch(select("k:")) {
			case 1:
				mes "԰_FA";
				mes "qlL̶}lyXFA";
				mes "nݪ";
				close;
			case 2:
				mes "԰_F";
				mes "}}ҤFA";
				mes "ϿnB}lyFA";
				mes "yᦳۺCa";
				mes "Yrre{";
				next;
				switch(select("ݼˤlbSiHȱo[F:Ah[@I")) {
				case 1:
					mes "y";
					mes "SnݪaF";
					close;
				case 2:
					mes "[b̭Aۤpps";
					next;
					switch(select(":....ޥ")) {
					case 1:
						mes "UsAťF '~' @nAӬOq^FF0000Dӱ^000000̶ǨӪ";
						set KHCottagePoem1,4;
						close;
					case 2:
						mes "iO]@w βz";
						close;
					}
				}
			}
		case 2:
			mes "ݼˤl٬OnIn";
			close;
		}
	}
	else if ((KHCottagePoem1 > 3) || (KielHyreQuest >= 30)) {
		mes "b̫UsA";
		mes "qӱ診̶Ǩ";
		mes "'~' @n";
		close;
	}
}

//----------------------------------------------------------------------------
// Cottage interior, upstairs; Vicious Dog
//----------------------------------------------------------------------------
kh_vila,181,178,4	script	ݰ_ ܥ#khp1	81,7,3,{
//OnTouch2:
OnTouch:
	mes "̰ǰǰǰǰǰ~";
	next;
	mes "ݰ_ӫܥ bWWۡAiHpߪL?";
	next;
	switch(select("L:sUh")) {
	case 1:
		if (countitem(537) >= 1) {
			mes "......JӪQ@Q.. ݨӦad}ư";
			next;
			switch(select("յۨϥd}Ƭݬ:ݼˤl椣q")) {
			case 1:
				mes "d}ƩeXhA";
				mes "}lnڱA";
				mes "d}";
				mes "}ljfjfYF_ӡA";
				mes "XoɭԳqL";
				delitem 537,1; //Pet_Food
				close2;
				warp "kh_vila",173,182;
				end;
			case 2:
				break;
			}
		}
		mes "pߤpߪA";
		mes "٬OrWW";
		next;
		mes "QnqL";
		mes "...";
		mes "L!L!L!L!L!!!!";
		next;
		mes ".......";
		mes "QlvunkӤUF";
		close2;
		warp "kh_vila",126,70;
		end;
	case 2:
		mes ".....||Qr?";
		close2;
		warp "kh_vila",126,70;
		end;
	}
}

//----------------------------------------------------------------------------
// Cottage interior, upstairs; Drawer, first room nightstand
//----------------------------------------------------------------------------
kh_vila,115,186,0	script	P#khp1	111,{
	if (checkweight(7492,1) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	if ((countitem(7492) < 1) && (KielHyreQuest <= 36)) {
		mes "nOܦhH ĲILP";
		next;
		switch(select("}Pݬ:MOa")) {
		case 1:
			mes "}Pݨ⪺";
			getitem 7492,1; //Yellow_Key_Card
			close;
		case 2:
			mes "MOa";
			close;
		}
	}
	else {
		mes "...ݼˤlһݭnF賣FA";
		mes "^ha";
		close;
	}
}

//----------------------------------------------------------------------------
// Cottage interior, upstairs; Box
//----------------------------------------------------------------------------
kh_vila,107,126,0	script	cl#khp2	111,{
	if ((countitem(7329) < 1) && (countitem(7516) < 1) && (countitem(7491) < 1) && (KielHyreQuest < 38)) {
		mes "ݨF@\۰TclA";
		mes "[clo{̭٦";
		mes "hcy䥦clA";
		mes "ĤGӽclQ_͵FA";
		close;
	}
	else if ((countitem(7329) >= 1) && (countitem(7516) < 1) && (countitem(7491) < 1) && (KielHyreQuest < 38)) {
		mes "ݨF@\۰TclA";
		mes "[clo{̭٦";
		mes "hcy䥦clA";
		mes "ĤGӽclQ_͵FA";
		mes "....||OqĪ~̱o쪺_";
		mes "}ҩO?";
		next;
		switch(select("}Ҭݬ:ӬO|諸...")) {
		case 1:
			mes "'' }ҤF";
			next;
			mes "'HH~' cḽ _ͥd";
			next;
			mes ".....O_....";
			getitem 7516,1; //Green_Key_Card
			delitem 7329,1; //Old_Bronze_Key
			close;
		case 2:
			mes "ӬO|諸...";
			close;
		}
	}
	else {
		mes "Oo^008000_ͥd^000000cl";
		close;
	}
}

//----------------------------------------------------------------------------
// Cottage interior, upstairs; Bookshelf.
//----------------------------------------------------------------------------
kh_vila,181,138,0	script	d#khp1	111,{
	if ((countitem(7491) < 1) && (countitem(7329) >= 1) || (countitem(7516) >= 1)) {
		mes "˺\hѪdA۬۷hqy  .......";
		next;
		mes "........? 'FRR'? 'RR'?";
		next;
		switch(select("_ѨӬdݤ@U:ܯSOѰ")) {
		case 1:
			mes "_ѨӬdݫ Sݨ줰SOeAѭs^B";
			mes "dݮ_ɡAݨ̭wK";
			next;
			switch(select("Ah[@U:ӬOa")) {
			case 1:
				mes "P򪺮Ѯ}AX{FHKwAݨF_ͤաA...}";
				next;
				switch(select("Τwa_͸ոլ:....nSXA_")) {
				case 1:
					mes "Ĥ@_ͤ";
					next;
					if (countitem(7329) >= 1) {
						select("}»ű_:OָɧU_");
						mes "ĤG_ͤ";
						next;
						select("}»ű_:OָɧU_");
					}
					else if (countitem(7516) >= 1) {
						switch(select("_:OָɧU_")) {
						case 1:
							set .@KHFirstKeyhole,1;
							break;
						case 2:
							set .@KHFirstKeyhole,2;
							break;
						}
						mes "ĤG_ͤ";
						next;
						switch(select("_:OָɧU_")) {
						case 1:
							set .@KHSecondKeyhole,1;
							break;

						case 2:
							set .@KHSecondKeyhole,2;
							break;

						}
						if (.@KHFirstKeyhole == 2) && (.@KHSecondKeyhole == 1) {
							mes "M'!'@n @_ w}ҤFAw̭ۥզ⪺cl";
							next;
							mes "woF^FF0000զcl^000000";
							delitem 7489,1; //Villa_Spare_Key
							delitem 7516,1; //Green_Key_Card
							getitem 7491,1; //Iron_Box
							close;
						}

					}
					mes "}";
					close;
				case 2:
					mes "h}@UO֦nF";
					close;
				}
			case 2:
				mes "ѩbӪaF";
				close;
			}
		case 2:
			mes "~SݨSOF";
			close;
		}
	}
	else {
		mes "ٻݭnǪFaA";
		mes "A";
		close;
	}
}

//----------------------------------------------------------------------------
// Cottage interior, upstairs; Desk
//----------------------------------------------------------------------------
kh_vila,118,144,0	script	Ѯ#khp1	111,{
	if (KHCottagePoem2 < 1) {
		mes "ݨѮW";
		mes "äCKVyMȮhA";
		mes "WgۤHuʤOs@kMQΤk..";
		mes "j Qتwפ嶰..";
		mes "utΦ۰ʾ񪺬Ϊk..";
		mes "]kbs@k..";
		mes "FRR..";
		next;
		mes "'RR?'";
		mes "b½\OզѭɭԡA";
		mes "o{F@iȡA";
		mes "WOۦ ' 쬥";
		mes "~峹";
		mes "......⥦ba";
		next;
		mes "oF'^FF0000O  쬥 峹^000000'";
		set KHCottagePoem2,1;
		close;
	}
	else if (KHCottagePoem2 >= 1) {
		mes "ۮѩMﺡѮAPı@Yhˤl";
		close;
	}
}

//----------------------------------------------------------------------------
// Cottage interior, upstairs; Medicine Chest
//----------------------------------------------------------------------------
kh_vila,123,170,0	script	d#khp1	111,{
	if ((KHCottagePoem2 < 1) && (KielHyreQuest < 30)) {
		mes "ΧΦ⪺~lVê\b̡AOΦb̪ĩO?";
		close;
	}
	else if ((KHCottagePoem2 == 1) && (KielHyreQuest < 30)) {
		mes "ΧΦ⪺~lVê\b̡AOΦb̪ĩO?";
		mes "......nb̬Y@ѤWݹLA";
		mes "WgۦnbϥίSwGɡA~|..";
		next;
		switch(select("u|تF...:JӷQ@Q ~ӯȱi~O...")) {
		case 1:
			mes "....i|تFO";
			close;
		case 2:
			switch(select("ĺwbW:ŦĺwbW:ĺwbW:ĺwbW:٬O n")) {
			case 1:
				set .@KHPotionColor$,"";
				break;
			case 2:
				mes "^3355FFĤ@YDOHwKҰDAۦBNߩMwYAڬB_۳DY{UhFADNܪRFA";
				mes "Ĥ@YDOHwKҰDAۦBNߩMwYAڬB_۳DY{UhFADNܪRFA";
				mes "ĤTYDOHMשҰDA۷ŷxߩMXnYAڬB_ƱFDߡADNܪRFA";
				mes "ĥ|YDOS骺DAeߩMYSHDAڬB_VųBADO_uRU";
				mes "SH|DASH|DAڪWrO ^000000'^FF0000gpc]^000000'";
				mes "^3355FFڮۥ|CMۥ|YDAb·t̴M䨺k ^000000";
				next;
				mes "....... n_Ǫְ...쩳˪NqO?";
				set KHCottagePoem2,2;
				close;
			case 3:
				set .@KHPotionColor$,"";
				break;
			case 4:
				set .@KHPotionColor$,"";
				break;
			case 5:
				mes "....i|تFO";
				close;
			}
			mes .@KHPotionColor$+"ĶۯȱiyUFA";
			mes "ܯ_Sïȭ";
			mes "]S";
			close;
		}
	}
	else if ((KHCottagePoem2 >= 2) || (KielHyreQuest >= 30)) {
		mes "o̬O";
		mes "bȸ̭֪aA";
		mes "nb@Mݬݶ?";
		next;
		switch(select("]SɶU@Aa:ڭn")) {
		case 1:
			mes "֨a̭[@Ua";
			close;
		case 2:
			mes "^3355FFĤ@YDOHwKҰDAۦBNߩMwYAڬB_۳DY{UhFADNܪRFA";
			mes "Ĥ@YDOHwKҰDAۦBNߩMwYAڬB_۳DY{UhFADNܪRFA";
			mes "ĤTYDOHMשҰDA۷ŷxߩMXnYAڬB_ƱFDߡADNܪRFA";
			mes "ĥ|YDOS骺DAeߩMYSHDAڬB_VųBADO_uRU";
			mes "SH|DASH|DAڪWrO ^000000'^FF0000gpc]^000000'";
			mes "^3355FFڮۥ|CMۥ|YDAb·t̴M䨺k ^000000";
			close;

		}
	}
}

//----------------------------------------------------------------------------
// Cottage interior, stair case; Sword hilt
//----------------------------------------------------------------------------
kh_vila,136,68,0	script	C˹#kh	111,{
	if ((KHCottagePoem1 < 3) || (KHCottagePoem2 < 2) && (KielHyreQuest < 30)) {
		mes "@ӧܺ}GC";
		mes "M@ӷPıiȪDJ";
		close;
	}
	else if ((KHCottagePoem1 <= 4) || (KHCottagePoem2 <= 2) && (KielHyreQuest < 30)) {
		mes "@ӧܺ}GC";
		mes "M@ӷPıiȪDJA";
		mes "..|C?";
		mes "|YD?";
		mes "M~ݨ쪺";
		mes "]Y?";
		next;
		switch(select("ӨSYa:ڭnA[@U")) {
		case 1:
			mes "ӬOMa";
			close;
		case 2:
			mes "JӪ[DJAbDY䦳@";
			mes "iHJC}f";
			next;
			switch(select("O˪}fO?:ޥXCӴ")) {
			case 1:
				mes "...FC~";
				mes "ݤ䥦iAJF";
				close;
			case 2:
				if (KHCottagePoem1 != 4) {
					mes "COiHyLʪA";
					mes "nQF赹F";
					close;
				}
				else {
					mes "O?";
					next;
					mes "ޥXFĤ@C";
					next;
					switch(select("Ĥ@YD:ĤGYD:ĤTYD:ĥ|YD")) {
					default:
						break;
					case 2:
						set .@KHSwords,.@KHSwords+1;
						break;
					}
					next;
					mes "ޥXFĤGC";
					next;
					switch(select("Ĥ@YD:ĤGYD:ĤTYD:ĥ|YD")) {
					default:
						break;
					case 4:
						set .@KHSwords,.@KHSwords+1;
						break;
					}
					next;
					mes "ޥXFĤTC";
					next;
					switch(select("Ĥ@YD:ĤGYD:ĤTYD:ĥ|YD")) {
					case 1:
						set .@KHSwords,.@KHSwords+1;
						break;
					default:
						break;
					}
					next;
					mes "ޥXFĥ|C";
					next;
					switch(select("Ĥ@YD:ĤGYD:ĤTYD:ĥ|YD")) {
					default:
						break;
					case 3:
						set .@KHSwords,.@KHSwords+1;
						break;
					}

					if (.@KHSwords == 4) {
						mes "MťCHnAPı쨭";
						mes "ʨOah";
						set KHCottagePoem1,5;
						set KHCottagePoem2,3;
						close2;
						warp "kh_vila",178,72;
						end;
					}

					else {
						mes "....SܤơA";
						mes "Cs^Ӫma";
						close;
					}
				}
			}
		}
	}
	else if ((KHCottagePoem1 == 5) && (KHCottagePoem2 == 3) || (KielHyreQuest >= 30)) {
		mes "oOʨ KǪq";
		next;
		switch(select("sih:ih")) {
		case 1:
			warp "kh_vila",178,72;
			end;
		case 2:
			mes "Ah[@Ua";
			close;
		}
	}
}

//----------------------------------------------------------------------------
// Cottage interior, Secret Room; left test tube
//----------------------------------------------------------------------------
kh_vila,179,68,0	script	#khp2	111,{
	mes "  쬥 ǰ|A";
	mes "ժAkǥͦb޸̭A";
	mes "Pın";
	close;
}


//----------------------------------------------------------------------------
// Cottage interior, Secret Room; Right test tube
//----------------------------------------------------------------------------
kh_vila,185,68,0	script	::TestTubeKHQ2	111,{
	if (KielHyreQuest > 28) {
		mes "^3355FFA strange looking,";
		mes "wizened old man is";
		mes "held within this test tube.^000000";
		close;
	}
	else if (KielHyreQuest == 28) {
		mes "ݰ_Ӥ@YªѤH b޸̡AޤUݨ ⪺s";
		next;
		switch(select("@Us:h[@|")) {
		case 1:
			mes "Us ޸̪ѤH}lۧAܤF";
			next;
			mes "..........";
			mes "'AOְ..'";
			mes "'O@ӭͪհڡA'";
			mes "'pAOڪBͪܡA";
			mes "A@w|DڪWr?'";
			next;
			input .@KHInput$;
			if (.@KHInput$ == "gpc]") {
				mes "ЧAOUoƦra ^FF00004.7.7.2.9.6.1^000000";
				next;
				mes "^FF00004772961^000000 ?";
				mes "oOƦr?";
				//KHCottagePoem1 and KHCottagePoem2 no longer needed-- deleting
				set KHCottagePoem1,0;
				set KHCottagePoem2,0;
				set KielHyreQuest,30;
				close;
			}
			else {
				mes "oӤOAWra..";
				close;
			}
		case 2:
			mes "ӬOh[@UPOn@Ia";
			close;
		}
	}
	else if (KielHyreQuest >= 30) {
		if ((countitem(7491) > 0) && (countitem(7492) > 0)){
			mes "^FF00004772961^000000 ?";
			mes "oOƦr?";
			mes "........";
			mes "ݼˤlһݭnF賣wgFA";
			mes "^RRa";
			close;
		}
		else {
			mes "^FF00004772961^000000 ?";
			mes "oOƦr?";
			mes "........";
			mes "ٻݭnǪFaA";
			mes "ha̭hݧa";
			close;
		}
	}
	end;
}

//============================================================================

//============================================================================
// Robot Factory NPCs
//============================================================================

//----------------------------------------------------------------------------
// Robotic's Factory; Heavy Door
//----------------------------------------------------------------------------
kh_dun01,235,48,0	script	T#kh1::HeavyDoorKHQ1	111,{
	if (KielHyreQuest < 38) {
		mes "ۤ@yT";
		next;
		switch(select("}Ҭݬ:ޥ")) {
		case 1:
			input .@KHInput$;
			mes "}";
			close;
		case 2:
			mes "ݼˤlSn}";
			close;
		}
	}
	else if ((KielHyreQuest >= 38) && (KielHyreQuest < 46)) {
		mes "ۤ@yT";
		next;
		switch(select("}Ҭݬ:ޥ")) {
		case 1:
			input .@KHInput$;
			if (.@KHInput$ == "Ŧ_ͥd") {
				mes " }ҤF";
				close2;
				warp "kh_school",119,144;
				end;
			}
			else {
				mes "}";
				close;
			}
		case 2:
			mes "ݼˤlSn}";
			close;
		}
	}
	else {
		mes "O۪p";
		close;
	}
}

//----------------------------------------------------------------------------
// Robotic's Factory; Heavy Door (These doors don't seem to serve any purpose)
//----------------------------------------------------------------------------
kh_dun01,76,233,0	script	T::HeavyDoorKHQ2	111,{
	if ((KielHyreQuest >= 38) && (KielHyreQuest < 46)) {
		mes "ۤ@yT";
		next;
		switch(select("}Ҭݬ:ޥ")) {
		case 1:
			input .@KHInput$;
			mes "}";
			close;
		case 2:
			mes "ݼˤlSn}";
			close;
		}
	}
	else {
		mes "O۪p";
		close;
	}
}

kh_dun01,106,233,0	duplicate(HeavyDoorKHQ2)	T#kh3	111
kh_dun01,6,164,0	duplicate(HeavyDoorKHQ2)	T#kh4	111
kh_dun01,6,133,0	duplicate(HeavyDoorKHQ2)	T#kh5	111
kh_dun01,6,60,0	duplicate(HeavyDoorKHQ2)	T#kh6	111
kh_dun01,6,30,0	duplicate(HeavyDoorKHQ2)	T#kh7	111
kh_dun01,6,18,0	duplicate(HeavyDoorKHQ2)	T#kh8	111
kh_dun01,235,70,0	duplicate(HeavyDoorKHQ2)	T#kh9	111
kh_dun01,235,92,0	duplicate(HeavyDoorKHQ2)	T#kh10	111
kh_dun01,235,114,0	duplicate(HeavyDoorKHQ2)	T#kh11	111

//----------------------------------------------------------------------------
// Beautiful Lady and Beautiful Lady copies.
//----------------------------------------------------------------------------
kh_school,119,149,4	script	}GkH#kh1::BeatifulLadyKHQ1	894,{
	cutin "kh_ellisia",2;
	if (KielHyreQuest < 40) {
		mes "[RRƶ]";
		mes "........";
		mes "AObڰOи̪H";
		next;
		mes "[RRƶ]";
		mes "̾  쬥 ͪܡAiJo̪HO ^FF0000ų]w RR^000000M ^FF0000RRB^000000Ӥw";
		next;
		mes "[RRƶ]";
		mes "iOݤ^FF0000RR^000000OAo]QJF? аݧAO^FF0000RRB^000000?";
		next;
		mes "[RRƶ]";
		mes "ЧA Xܤ@U AO^FF0000RRB^000000  ҩn?";
		next;
		switch(select("_ͥd:Ŧ_ͥd:_:eۯ˪s:......?")) {
		default:
			break;
		case 3:
			mes "[RRƶ]";
			mes "oO  쬥  ^FF0000RR^000000 Oު_ͰڡANγoӨHҩAOA^FF0000RRB^000000F";
			next;
			mes "[RRƶ]";
			mes ".....ڥbAOAڷ|aAڰdaAЧAy";
			close2;
			cutin "",255;
			warp "kh_school",120,180;
			end;
		case 4:
			mes "[RRƶ]";
			mes "ӬO....";
			mes "^0000FF^000000ͪ! AOӧڪ?";
			close2;
			cutin "",255;
			monster "kh_school",117,144,"q]",1745,1;
			monster "kh_school",117,144,"q]",1745,1;
			monster "kh_school",117,144,"q]",1745,1;
			monster "kh_school",117,144,"q]",1745,1;
			end;
		case 5:
			mes "[RRƶ]";
			mes "...........";
			close2;
			cutin "",255;
			end;
		}
		mes "[RRƶ]";
		mes "uγoӨҩ";
		mes "ANO^FF0000RRB^000000A";
		mes "iHЧAXOҩ?";
		close2;
		cutin "",255;
		end;
	}
	else if (KielHyreQuest >= 40) {
		mes "[RRƶ]";
		mes "....ЧA֨a";
		close2;
		cutin "",255;
		warp "kh_school",120,180;
		end;
	}
}


kh_school,117,149,4	script	}GkH#kh2::BeatifulLadyKHQ2	894,{
	end;
}
kh_school,118,149,4	duplicate(BeatifulLadyKHQ2)	}GkH#kh3	894
kh_school,120,149,4	duplicate(BeatifulLadyKHQ2)	}GkH#kh4	894
kh_school,121,149,4	duplicate(BeatifulLadyKHQ1)	}GkH#kh5	894

//----------------------------------------------------------------------------
// Beautiful Lady "Allysia"
//----------------------------------------------------------------------------
kh_school,122,186,4	script	}GkH#kh6	894,{
	if (checkweight(7496,1) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	cutin "kh_ellisia",2;
	if (KielHyreQuest < 38) {
		mes "[??????]";
		mes "o̬OpHϰ";
		mes "ЧAߨ}";
		close2;
		cutin "kh_ellisia",255;
		warp "yuno_fild08",73,172;
		end;
	}
	else if (KielHyreQuest <= 38) {
		mes "[RRƶ]";
		mes "ڥb ^FF0000ų]w RR^000000B";
		next;
		mes "[RRƶ]";
		mes "ڷQAhӪD";
		mes "ڻݭnA";
		mes "ثe^FF0000 쬥^000000";
		mes "boutYӦa";
		mes "QʸT";
		next;
		mes "[RRƶ]";
		mes "ЧAϱ^FF0000 쬥^000000ͧaAӤ~OȤ";
		next;
		switch(select("out쩳O....?:аݹ^FF0000 쬥^000000 oͤFƱO..")) {
		case 1:
			mes "[RRƶ]";
			mes "oݩO  쬥 ~ KƷ~A";
			mes "s@۰ʾHΪutA";
			mes "AثeҬݨ쪺ڡA";
			mes "'άO  쬥 ǰ|ǥ̡ͭA";
			mes "OHӬO'H'";
			next;
			mes "[RRƶ]";
			mes "HۦoHٰjA";
			mes "s@Xʱj۰ʾHΡA";
			mes "H|X^mA";
			mes "Oڭ ' 쬥 ~'ؼФ z";
			break;
		case 2:
			mes "[RRƶ]";
			mes "^0000FF^000000";
			mes "ut̪H";
			mes "jF'`y'ʡA";
			mes "Doƹꪺ^FF0000 쬥^000000͡A^0000FF^000000ͪ";
			mes "[HdAA]S^ӹL";
			next;
			mes "[RRƶ]";
			mes "^FF0000 쬥^000000";
			mes "DAߧڷ|b ^0000FF^000000";
			mes "̳Q}aA";
			mes "ҥHکbo̡Aӱqڪ@HΤ";
			mes "F@ӤH";
			next;
			mes "[RRƶ]";
			mes "ݨӥثe٬OiH^FF0000 쬥^000000ͪ";
			mes "ͦsHAҥH ^FF0000 쬥^000000";
			mes "ثeOwA";
			mes "·ЧA@U^FF0000 쬥^000000";
			mes "Ҧban";
			next;
			mes "[RRƶ]";
			mes "ڵA@ӥiHbutKa";
			mes "BiC^FF0000_ͥd^000000A";
			mes "Y^FF0000 쬥^000000";
			mes "ҦbaܡAЦ^o̧iDڦn";
			getitem 7496,1; //Red_Key_Card
			set KielHyreQuest,40;
			break;
		}
		close2;
		cutin "",255;
		end;
	}
	else if (KielHyreQuest == 40) {
		mes "[RRƶ]";
		mes "·ЧAIh^FF0000 쬥^000000ͧa";
		close2;
		cutin "",255;
		warp "kh_dun01",22,216;
		end;
	}
	else if (KielHyreQuest == 42) {
		mes "[RRƶ]";
		mes "аݧA  쬥 Ͷ?";
		next;
		mes "ڧiDkHA 쬥 QʸTa誺mAçLڪ^FF0000Hݯ}^000000oݤF";
		next;
		mes "^0000FFRRƶ^000000 ^FF0000Hݯ}^000000A˸mbۤvuW";
		next;
		mes "^FF0000 쬥^000000 tT{A";
		mes "B_2_3a T `A";
		mes "PʤѽT{AyHγ]p϶ǰe";
		next;
		mes "[RRƶ]";
		mes "..R.O ...";
		delitem 7497,1; //Steel_Piece
		set KielHyreQuest,44;
		close2;
		cutin "",255;
		end;
	}
	else if (KielHyreQuest == 44) {
		mes "[RRƶ]";
		mes "ڲ{bn}ln^FF0000 쬥^000000ͪROFA";
		mes "HШ^0000FFƶ ' 쬥 x'^000000 ӧڧaA";
		mes "åBAa_ͥdA]OwWݭnN^F";
		next;
		mes "[RRƶ]";
		mes "unAx";
		mes "^FF0000_^000000 L̬ݪܡA";
		mes "L̷|AAȪ";
		delitem 7492,1; //Yellow_Key_Card
		delitem 7495,1; //Blue_Key_Card
		delitem 7496,1; //Red_Key_Card
		set KielHyreQuest,46;
		close2;
		warp "yuno_fild08",73,172;
		cutin "",255;
		end;
	}
	else if (KielHyreQuest >= 44) {
		warp "yuno_fild08",73,172;
		cutin "",255;
		end;
	}
}

//----------------------------------------------------------------------------
// Signboard (another useless NPC?)
//----------------------------------------------------------------------------
kh_dun01,163,223,4	script	ݪO#kh	857,{
	mes "dTiJ";
	close;
}

//----------------------------------------------------------------------------
// Mechanical Devices for accessing restricted area
//----------------------------------------------------------------------------
kh_dun01,166,223,0	script	˸m#kh::KHKeyardReader	111,{
	if ((KielHyreQuest <= 38) || (KielHyreQuest >= 44)) {
		mes "iHJYتF誺˸m";
		close;
	}
	else if ((KielHyreQuest == 40) && (countitem(7496) >= 1)) {
		mes "iHJYتF誺˸m";
		next;
		input .@KHInput$;
		if (.@KHInput$ == "_ͥd") {
			mes "J_ͥd";
			mes "N}ҤF";
			close2;
			warp "kh_dun01",170,227;
			end;
		}
		else {
			mes "S";
			close;
		}
	}
}

kh_dun01,162,206,0	duplicate(KHKeyardReader)	˸m#kh2	111

//----------------------------------------------------------------------------
// Keep monsters out of the quest area.
// Silly really since the rest of it's a dungeon
//----------------------------------------------------------------------------
//kh_dun01,180,220,0	script	Monster Warp#kh1::KHMobWarp	-1,5,20,{
//OnTouchNPC:
//	warp "kh_dun01",178,138;
//	end;
//}

//kh_dun01,190,220,0	duplicate(KHMobWarp)	Monster Warp#kh2	-1,5,20
//kh_dun01,200,250,0	duplicate(KHMobWarp)	Monster Warp#kh3	-1,5,20
//kh_dun01,210,220,0	duplicate(KHMobWarp)	Monster Warp#kh4	-1,5,20
//kh_dun01,220,220,0	duplicate(KHMobWarp)	Monster Warp#kh5	-1,5,10

//----------------------------------------------------------------------------
// Kiel Hyre - OnTouch
//----------------------------------------------------------------------------
kh_dun01,224,233,0	script	Factory B Area Door	-1,5,5,{
//OnTouch2:
OnTouch:
	if (KielHyreQuest == 40) {
		if (checkweight(7497,1) == 0) {
			mes "Цbo̼Ȱ@U !!";
			mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
			close;
		}
		mes "...........";
		next;
		mes "nbﭱ ťYHܪn";
		next;
		mes "[????]";
		mes "...^0000FF^000000....Ano...";
		next;
		mes "O...^FF0000 쬥^000000 ?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "^FF0000 쬥^000000?";
		next;
		mes "[ 쬥]";
		mes ".....֧r?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ڬO.....";
		next;
		mes "^FF0000 쬥^000000 ^FF0000RR^000000M ^0000FFRRƶ^000000pj GƻLťF";
		next;
		mes "[ 쬥]";
		mes "....ӳoˤlڡADsRR]Qǳå̹JF";
		mes ".............";
		next;
		mes "ЧoӱaaAoӵ^0000FFRRƶ^000000 o|D";
		next;
		mes "qMa_ؤ XӤF@^FF0000Hݯ}^000000";
		getitem 7497,1; //Steel_Piece
		set KielHyreQuest,42;
		close;
	}

	else if (KielHyreQuest >= 42) {
		mes "[ 쬥]";
		mes "........";
		close;
	}
}

//----------------------------------------------------------------------------
// Robot Factory Second Floor Entrances
//----------------------------------------------------------------------------
kh_dun01,44,203,0	script	XJ ˸m#khd2::KHAccess	111,{
	if (countitem(7509) < 1) {
		mes "@yj";
		close;
	}
	else {
		mes "ۥiH_ͥd";
		mes "ih˸m";
		next;
		input .@KHInput$;
		if (.@KHInput$ == "R_ͥd") {
			mes "ϥ'R_ͥd'A";
			mes "j}ҤFA";
			mes "X{FqUӱ";
			next;
			switch(select("Uh:Uh")) {
			case 1:
				warp "kh_dun02",41,198;
				end;
			case 2:
				mes "LF@qɶ _ӤF";
				close;
			}
		}
		else {
			mes "}";
			close;
		}
	}
}

kh_dun01,36,195,0	duplicate(KHAccess)	XJ ˸m#khd1	111

//============================================================================

//============================================================================
//  쬥vNPC,  򺸪ж NPC
//============================================================================

//----------------------------------------------------------------------------
//  쬥ޮa
//----------------------------------------------------------------------------
kh_mansion,78,55,5	script	ޮa#kh	109,{
	if (KielHyreQuest < 46) {
		mes "[ޮa]";
		mes "o̬OpHvAЧA}n";
		close2;
		warp "lighthalzen",188,201;
		end;
	}
	if ((KielHyreQuest >= 46) && (KielHyreQuest < 50)) {
		mes "[ޮa]";
		mes "аݧAODHȤH?";
		mes "ХXҾڵڬ";
		next;
		switch(select("_ͮL:????")) {
		case 1:
			mes "[ޮa]";
			mes "O"+strcharinfo(0)+"/pjڡAڭ̥bAOAڨӱaADḨa";
			close2;
			warp "kh_mansion",21,14;
			end;
		case 2:
			mes "[ޮa]";
			mes "YAOȤHܡAЧA}n";
			close2;
			warp "lighthalzen",188,201;
			end;
		}
	}
	if ((KielHyreQuest >= 50) && (KielHyreQuest < 64) || (KielHyreQuest >= 70)) {
		mes "[ޮa]";
		mes ".....аݧAnڭ̮aDH?";
		next;
		switch(select("O:n")) {
		case 1:
			mes "[ޮa]";
			mes "ڨӱaAh";
			close2;
			warp "kh_mansion",21,14;
			end;
		case 2:
			mes "[ޮa]";
			mes "ڦbo̵Aa";
			close;
		}
	}
	if ((KielHyreQuest == 52) || (KielHyreQuest == 54) || (KielHyreQuest >= 64) && (KielHyreQuest <= 70)) {
		mes "[ޮa]";
		mes "w{Aڭ̥bAOAаݧAnDHܶ? άO....";
		next;
		switch(select("M^FF0000 쬥^000000 ܩO..:^3355FF̫^000000...")) {
		case 1:
			mes "[ޮa]";
			mes "AѤFAڨӱaAha";
			close2;
			warp "kh_mansion",21,14;
			end;
		case 2:
			mes "[ޮa]";
			mes ".... ݼˤlAaӦn";
			next;
			mes "[P򪺺ޮaOq...";
			mes "GMZޮaO....";
			mes "аݧAWrOO";
			mes ".....";
			mes ".......... ";
			next;
			mes "[ޮa]";
			mes "ݼˤlSQåboAШo...";
			close2;
			warp "kh_mansion",20,87;
			end;
		}
	}
}

//----------------------------------------------------------------------------
//  쬥
//----------------------------------------------------------------------------
kh_mansion,22,28,4	script	Kiel Hyre#kh	903,{
	if (checkweight(908,200) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}

	cutin "kh_kyel01",2;
	if (KielHyreQuest < 46) {
		mes "[ 쬥]";
		mes ".........";
		close2;
		cutin "",255;
		end;
	}

	else if (KielHyreQuest == 46) {
		cutin "kh_kyel01",2;
		mes "[ 쬥]";
		mes "~ AO "+strcharinfo(0)+"?";
		mes "§A..";
		mes "]Au@ܱoQhF";
		next;
		mes "[ 쬥]";
		mes "... ݼˤlܦh ôb.. Aӻ ]O@ͪga..";
		next;
		mes "[ 쬥]";
		mes "YðݪܴNݧڧaAYOiHb^d򤺪ܡAڴNA^a";
		next;
		while(1) {
			switch(select("HάO...?:^3355FF^000000oHO..?:^FF0000RR^000000ҮsO?")) {
			case 1:
				mes "[ 쬥]";
				mes "O32~e 20}lJF";
				mes "ss..";
				mes "Oj Qتw QnA";
				mes "MHMH@˯ʪA";
				mes "OHHҰHΡA";
				mes "NOHΰ";
				next;
				mes "[ 쬥]";
				mes "]\iݰ_";
				mes "@H]A";
				mes "o򨺨ǨSۤvNA";
				mes "u|ťRƪ@H]";
				mes "O@˪A";
				mes "L̬O|ۦҦʪ";
				mes "{NǪ..";
				next;
				mes "[ 쬥]";
				mes "YQAѧM@IܡA";
				mes "ЧAh߰^0000FFRRƶ^000000a..";
				set .@KHQRead,.@KHQRead+1;
				break;
			case 2:
				mes "[ 쬥]";
				mes "^3355FF^000000O";
				mes "کMeҳ߷RkH";
				mes "ҥͤUӪߤ@ڪlA";
				mes "kHͧpĴNh@F..";
				mes "pľ֦ۤѤ~몺";
				mes "]pO..";
				next;
				mes "[ 쬥]";
				mes "^FF0000RR^000000@˪ 3N H";
				mes "]O^3355FF^000000ҳ]pA";
				mes "iO{bO..";
				mes "3N HΰyA";
				mes "Q䥦γ~Өϥ..";
				next;
				mes "[ 쬥]";
				mes "ڥӬOnh̪ץLA";
				mes "oQLʸTb̤F..";
				mes "쩳åQnOO..";
				mes "n}lXئʩOA";
				mes "ڨ{b٬OzѰ";
				set .@KHQRead,.@KHQRead+1;
				break;
			case 3:
				mes "[ 쬥]";
				mes "O ^3355FF^000000";
				mes "AO¦Akl?";
				mes "ڷQiO ^3355FF^000000";
				mes "ӤHO 'ͭ' ]@w";
				next;
				mes "[ 쬥]";
				mes "Dqɶ}lQ ^3355FF^000000";
				mes "ҹΪkhA";
				mes "`@۶¦AA";
				mes "`SA";
				mes "sڳDLuꭱհ";
				set .@KHQRead,.@KHQRead+1;
				break;
			}
			if (.@KHQRead == 3) {
				next;
				mes "[ 쬥]";
				mes "I.. ФnA߰ݤFAڦI֧r";
				delitem 7493,1; //Golden_Key
				delitem 7494,1; //Kiel_Button
				set KielHyreQuest,48;
				break;
			}
		}
	}
	else if (KielHyreQuest == 48) {
		mes "[ 쬥]";
		mes "٦.... oOPª§AMOppF ЧAUa...";
		getitem 12105,1; //Taming_Gift_Set
		getexp 700000,0;
		set KielHyreQuest,50;
	}
	else if ((KielHyreQuest >= 50) && (KielHyreQuest < 64)) {
		mes "[ 쬥]";
		mes "YSDnݪ ڭn𮧤F";
	}
	else if (KielHyreQuest == 64) {
		cutin "kh_kyel01",2;
		mes "[ 쬥]";
		mes "а٦ܭn?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "٨ST";
	}
	else if (KielHyreQuest == 68) {
		cutin "kh_kyel02",2;
		mes "[ 쬥]";
		mes ".. O"+strcharinfo(0)+"Ͱ аݦƶ?";
		next;
		select("߰ݦ^0000FFRRƶ^000000Ʊ");
		mes "["+strcharinfo(0)+"]";
		mes "ڦbժYӼo󪺥v̡AݨFM ^0000FFRRƶ^000000@Ҥ@˪ve";
		next;
		cutin "kh_kyel02",2;
		mes "[ 쬥]";
		mes "........... ڤDAnQǤڡAӨ쩳SFO?";
		next;
		cutin "kh_Kyel03",2;
		mes "[ 쬥]";
		mes "o@ɤWܦhHA󨺭ӯ_MANOAQnکһƱ?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "AkHM^0000FFRRƶ^000000 OOP@HAҺðݩҥH~|A";
		next;
		cutin "kh_kyel02",2;
		mes "[ 쬥]";
		mes "AݼˤlAOdFA^0000FFRRƶ^000000Oڿ˦۳]p ڦ";
		next;
		mes "[ 쬥]";
		mes "ܩ.. ve.. ]\OHݨL ^0000FFRRƶ^000000ҼˡAoeXӤ]@wA]ea̬Owe ۤvҳ߷RH";
		next;
		cutin "kh_kyel01",2;
		mes "["+strcharinfo(0)+"]";
		mes "ATeݰ_ OLF@q[ˤl..";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "کҬݨveO30~e@ƵeAkĪWr]s '^0000FFRRƶ^000000'AOb ùƦ̷R֮a̤u@k";
		next;
		cutin "kh_kyel02",2;
		mes "[ 쬥]";
		mes "............";
		next;
		cutin "kh_kyel01",2;
		mes "["+strcharinfo(0)+"]";
		mes "MڷQ@ƱAkO^0000FFRRƶ^000000ҥHA]\OA~ɭ ҳ߷RH]@w..";
		next;
		mes "[ 쬥]";
		mes "................";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "@hakl wF@kl.. iOkl wwWOkHFA";
		mes "kҳwkl 򨺦haklۤA֥ε۵LkIMvOH";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "H𪺬OAkҳ߷RIaַݡAba̤wRwBdA@ѬMaַ IqFӤkA򥼱BdNo˵BF";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "kFIqAµۦBN򭱧먭ӥhAwk hakl }lް__YF";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "墨kl @ӯSO޳NA޳NSOYӥ~ D`止ݭn޳NAkl⨺ӧ޳N浹F~A";
		mes "Өӥ~ӨklҥIXNOAL{_";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "boڭ̵oǤH W@ǦWraAIaַ ùƦ̷R֡Aipj RRƶAhakl  쬥..";
		next;
		cutin "kh_Kyel03",2;
		mes "[ 쬥]";
		mes "... .. uO@Ӥ²檺QOڡAuO] ^0000FFRRƶ^000000 򨺦klOPWAklzѡA";
		mes "uQoǶ? A¾hpaa?";
		next;
		mes "[ 쬥]";
		mes "]\AiObܤ[He ڨLk]@wAҥHbLNѤ ^0000FFRRƶ^000000 Mkܹ]@w";
		next;
		mes "[ 쬥]";
		mes "iOکMkĮR uLOAkQӤwAکMkĤۻ{ Ҿڦb̩O? II";
		next;
		select("bDFWo쪺veL");
		cutin "kh_kyel02",2;
		mes "[ 쬥]";
		mes "o...oO? ....... ḇoo..?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes " 쬥 ͡AoNOA~ɭԪve";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "oO'^0000FFRRƶ^000000'骺 ҧiDڪAo̬ORkH٫khҥͬaANObo̧쪺";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "A⨺kH٫A񥫻󰪪RFAаݨO{ѨkH үవXӪƱ?";
		next;
		cutin "kh_Kyel03",2;
		mes "[ 쬥]";
		mes "............";
		mes "....שQADF..";
		next;
		mes "[ 쬥]";
		mes "ڡAH ^0000FFRRƶ^000000O ҥwG ^0000FFRRƶ^000000ҰXӪA]ڷRLkH..";
		next;
		mes "[ 쬥]";
		mes "iOڧùƦ̷R֮a ˦SAOAۤvıAڥuO@uǪ̦ӤwڡAڹ䥦Ʒ~S߰";
		next;
		mes "[ 쬥]";
		mes "ڵhLOƹAO~ɭԪƱڡAڬOS~ ùƦ̷R֮a o˦ۮڲ`kTaS";
		next;
		cutin "kh_kyel02",2;
		mes "'ݼˤlݭnTꪺҾڡA'";
		mes "'⨺ӮLݬݶ?'";
		next;
		select("ùƦ̷R֮a ve");
		mes "["+strcharinfo(0)+"]";
		mes "uOo˶? ЧAݳoӡAoveOb ùƦ̷R֮a ̩ҵo{A]\O ùƦ̷R֮aaHa";
		next;
		mes "^FF0000 쬥^000000ݤF@ve";
		next;
		cutin "kh_Kyel03",2;
		mes "[ 쬥]";
		mes "SˤFO? ڱqӨSLoǤH";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "^FF0000 쬥^000000͡AAah... ݼˤl[Fˤl... MoTe̪ӤHa nOP@ڪ~";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "A|֦ hO?";
		next;
		cutin "kh_kyel02",2;
		mes "[ 쬥]";
		mes ".............";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "'ݼˤlF'";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "AӻS~ @ӮaS..iO! A٧UH pڨǪAL̪ܹoؤpƱ ²Opϴx?";
		next;
		cutin "kh_Kyel03",2;
		mes "[ 쬥]";
		mes "ܤ²ڡAOڡAOڧ⨺a˦SFAiOoǳOFުPh ^0000FFRRƶ^000000";
		next;
		mes "[ 쬥]";
		mes "YiSIqӤkܡAY򨺭Ӥkĩ֪ۤFܡAҥHӤkĨS۱...";
		next;
		mes "[ 쬥]";
		mes "A墨ذXaƪå_ 쩳!!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "kĨäO۱AҥHA_ èS";
		next;
		mes "[ 쬥]";
		mes "?!!!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ЧAݳo";
		next;
		select("iȱ L");
		mes "[ 쬥]";
		mes ".. oO򪱷Nȱ? Nγoدȱ@iҩAiSIqӤk? Hҩ? GӤkĬOS۱!";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "򨺦kĦbe@ѱߤWA]NO 8 19 ߤW `FNo......";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "iMkn@_npbO 30~e 8 20.. åBo{k]O8 20AI_ǧa?";
		mes "򨺦kĦbe@ѱߤWA]NO 8 19 ߤW `FNo......";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "򨺦kĩMwkHAnb@_pbe@ѱߤWAoniBṊO?";
		next;
		mes "[ 쬥]";
		mes "]o۫HoӨkͰڡAҥHo{ouLOI~ kl@ɪӤw... ............. ........ ....";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "............ ..... ..";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "Ak|O]Ӳz ӸiAboiȱW ۯuꪺƹ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "]\Obe@ѡA]NO 8 19Ao|h䪺z NOAoXӪY";
		next;
		mes "[ 쬥]";
		mes ".............! o...oOܧr!! ڨѬoXӪҾ bb̰!!!";
		next;
		select("K.H ȱ");
		mes "["+strcharinfo(0)+"]";
		mes "Ҿڪ.... bo̰ڡAoȱWg819ߤWAMobĤ@Ҩa ۨeڡA]\ӦaIO.. a";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "o̩Ҽg² K.H OAObAT{Lve ̩ҥΪ²٬O@˪AѱߤWAMo 쩳oͤƱFO?";
		next;
		cutin "kh_kyel02",2;
		mes "[ 쬥]";
		mes "............. ....... .....";
		next;
		cutin "kh_Kyel03",2;
		mes "[ 쬥]";
		mes "... س... O... ѱߤW... ..........";
		next;
		cutin "kh_kyel02",2;
		mes "[ 쬥]";
		mes "ѱߤWAoӧڪܬӨFAڹoĳAЧIqoiaAMNۧڤ@_pba";
		next;
		mes "[ 쬥]";
		mes "iOooڻAiSIqoA]ڵMڤ@_pbAAqťoyܮɧڪ߱|? ... uOܺGh";
		next;
		mes "[ 쬥]";
		mes "ٯboeɡAڬݨoΤĲN٫@AڹbOӥͮFqo̧٫mFAQnY즿̥h";
		next;
		mes "[ 쬥]";
		mes "iOoTչ Qnqڳo̧^٫ڡAuOppĬ.. ɦ]nXѪB yaܮzӭ˶F....... ......... ";
		next;
		select(".........");
		mes "[ 쬥]";
		mes ".. س.. ";
		delitem 7499,1; //Family_Portrait
		delitem 7500,1; //Elysia_Portrait
		delitem 7501,1; //Kyll_Hyre_Letter2
		delitem 7502,1; //Piece_Memo_Of_James
		delitem 7503,1; //Man_Portrait
		set KielHyreQuest,70;
		close2;
		cutin "",255;
		end;
	}
	else if (KielHyreQuest <= 70) {
		cutin "kh_kyel01",2;
		mes "[ 쬥]";
		mes "ĤG...";
		mes "o{oɤwg`FAåBٺ򴤵ۧ٫....";
		mes "...";
		next;
		cutin "kh_kyel03",2;
		mes "[ 쬥]";
		mes "ڤ]DO˪QkAߨ쨺٫ҡAΧڪ]VLʶR٫FA";
		mes "MڴN... }F";
		mes "ӨAG몺դF";
		next;
		mes "[ 쬥]";
		mes "}իA|ByҡAڬno˳QlvByO?Ҧ]OӦùƦ̷R֮aY...";
		mes "HΨklitG";
		mes "ӬOo˻⮩쪺";
		next;
		mes "[ 쬥]";
		mes "ڵ藍̥LALwg֦ҦݭnFFAs^0000FFRRƶ^000000]no";
		mes "Iaַ...";
		mes "LhҦF誺ɭԬOhڡA";
		mes "ڷQhR^0000FFRƶ^000000ݨo";
		next;
		mes "[ 쬥]";
		mes "Mڮ 1NH....";
		mes "^0000FFRRƶ^000000 ]pϡAhXFpڨǪ";
		next;
		mes "[ 쬥]";
		mes "pڨǪڷQn";
		mes "ҦF賣ѵڤFABvOBHߡA٦YӤH˦Sk....";
		mes "۹諸ڴѵL H";
		next;
		mes "[ 쬥]";
		mes "ڤ]jqL̷|ϥΦb̡AʵBtBҵAo񨺨ǤɭԷ|QIqHӪw˳ư";
		next;
		mes "[ 쬥]";
		mes ".....ݨӧAլdoˡAڷQAI@wYǫOaAL̨쩳QnO? ڪͩR? ٬OHΪ]p?";
		mes "YOoӪܡAOF?";
		mes "";
		next;
		select("L̬O....");
		cutin "kh_kyel01",2;
		mes "["+strcharinfo(0)+"]";
		mes "oOF AMpڨǪYA٦ ^0000FF^000000Ʊ";
		next;
		mes "[ 쬥]";
		mes "^0000FF^000000.... OAܤjq쪺ApĪ..";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "DL]O..Hζ? 2N...";
		next;
		mes "[ 쬥]";
		mes "OA^0000FF^000000O̪ϥΨY]kb 2N H.. OgL\hѩM~ҽϥͪ W@LG 2N..";
		next;
		mes "[ 쬥]";
		mes "ҥH墨Ĥl|󦳷RNڡAHکM ^0000FFRRƶ^000000WrARW^0000FF^000000AکҦ]p賣ǱµLF";
		next;
		mes "[ 쬥]";
		mes "ثeLbs@ 3N HΡA֦VAiO....èSХLnnHAuO@Ӥ~Ӫ̦Ӥw...";
		next;
		select("..........");
		mes "[ 쬥]";
		mes "yHΡA̴NpǻDANOܵۤH֪HLڡA";
		mes "]|@H] ۿWS~AOۤ|Q HdıHҼ˰....";
		next;
		mes "[ 쬥]";
		mes "ڹ ^0000FF^000000Ѥ~몺ǲ߯OAjOqB٦PWww";
		mes "@~";
		next;
		mes "[ 쬥]";
		mes "ҥH~| 3N ᤩ۸HOMǲ߯OAzL骺ͬ LǲߨHP";
		next;
		mes "[ 쬥]";
		mes "iO ^0000FF^000000ҧy 3NHέ̡Az|";
		next;
		mes "[ 쬥]";
		mes "fۦp]OpġA";
		mes "MĦXb@_pĭ..";
		mes "NO";
		mes "pڨǪҭn檺";
		mes "H窺ۦPƱ..";
		next;
		mes "[ 쬥]";
		mes "ЧAQݧaAHӻ{HLYʪ@...";
		next;
		mes "[ 쬥]";
		mes "A.....MĲIF";
		mes "ڤQ^ЪLhAڰ...";
		mes "L";
		mes "ڤ]ä|A˪...";
		mes "uOڤ@өeU Nn";
		next;
		select("eU?");
		mes "[ 쬥]";
		mes "O..";
		mes "eUڡAj.....";
		mes "ML̩eUA";
		mes "ҰլdتA|ӤjtO";
		next;
		select("????");
		mes "[ 쬥]";
		mes "ЧAڪ^0000FF^000000aAڦAQݨکһs@XӪp";
		mes "D}a";
		next;
		mes "[ 쬥]";
		mes "M....";
		mes "ǫĤl̼ZTO.";
		mes "..";
		mes "Ǹo^oǨƱA";
		mes "ڷ|@g@";
		next;
		select(":LeU:IYܷN");
		mes "[ 쬥]";
		mes "§AA^0000FF^000000Ӧb ox󪺦aUr";
		next;
		mes "[ 쬥]";
		mes "oOӫĤl谵XӮɩҫݪжA{b]QyFAܦsڳiJ ܲ`ŶF";
		next;
		mes "[ 쬥]";
		mes "Цbڧ쨺ĤlaAåBbĤlŦ Ю@󪫫~ӧaA򨺫ĤlɤOɦV|";
		next;
		select("~?");
		mes "[ 쬥]";
		mes "^0000FFRRƶ^000000٫..";
		mes "Oo@ƺݰ_]~...";
		mes "ڻs@XĤl";
		mes "FnѰO ùƦ̷R֪A";
		mes "Mڹ墨ĤlPAObĤlŦ";
		mes "ӤJ٫ӥNDnsF";
		next;
		mes "[ 쬥]";
		mes "H@몺Z ӨALOxANAoӧaAOiH 2N ߪʤO";
		next;
		mes "[ 쬥]";
		mes "oӶKb^0000FF^000000WܡAL|ȮɤϤOAXoӪɮɶ}ҨӫĤlݳAX٫Yi..";
		mes "UA";
		getitem 7504,1; //Toy_Motor
		next;
		cutin "kh_kyel03",2;
		mes "[ 쬥]";
		mes "YAǳƦnFܡAڴNAe^0000FF^000000 жF";
		set KielHyreQuest,74;
	}
	else if ((KielHyreQuest >= 74) && (KielHyreQuest <= 104)) {
		mes "[ 쬥]";
		mes "аݷǳƦnF?";
		next;
		switch(select("O:٨S")) {
		case 1:
			mes "[ 쬥]";
			mes "...NUA..";
			close2;
			enablenpc "Kiehl_Room_Warp";
			donpcevent "Kiehl_Room_Warp::OnEnable";
			end;
			break;
		case 2:
			mes "[ 쬥]";
			mes "YǳƦnFܡAAӧڧa";
			break;
		}
	}
	else if ((KielHyreQuest >= 74) && (KielHyreQuest <= 106)) {
		cutin "kh_kyel01",2;
		mes "[ 쬥]";
		mes "AӤFܡAаݻS˰?";
		next;
		if (countitem(7508) < 1) {
			mes "[ 쬥]";
			mes "You mean... You don't have it?";
			mes "Please, retrieve Allysia's Ring";
			mes "from Kiehl's heart!";
			next;
			enablenpc "Kiehl_Room_Warp";
			donpcevent "Kiehl_Room_Warp::OnEnable";
			close2;
			cutin "",255;
			end;
		}
		mes "V^FF0000 쬥^000000oXѩҵoͪƱiDLFAťofܪ^FF00000 쬥^000000SXIh";
		next;
		if (sex == 0) {
			set .@KHTitle$,"pj";
		}
		else set .@KHTitle$,"";
		mes "ޫ§A";
		mes ""+strcharinfo(0)+""+.@KHTitle$+"..";
		mes "ڦA]৤zաALwgڵPXDԮѤFA";
		mes "ڤ]յۮXڪ۷NӪרĤlF";
		next;
		mes "[ 쬥]";
		mes "ЧAUoӧaAoOoǤlHӧAڰǨƱ·NF..";
		next;
		mes "[ 쬥]";
		mes "ڪDګܫ_NAڷQAUA@ƱAڦ^QڷbutQʸTɡALF@Ӹ^0000FF^000000@Ҥ@˪ H";
		next;
		mes "[ 쬥]";
		mes "ڨɭԻ{^0000FF^000000uO۪AߺAҰXӪۤvƻsHӤw..ťAܤA";
		mes "ڤ~DOFĤl߮ɩһsyXӪ";
		next;
		mes "[ 쬥]";
		mes "ڵA@iHiJut`h̪_ͥdaAЧAˬd@UutaAڥhˬd@Uw˶^0000FF^000000ж";
		getitem 7509,1; //Fancy_Key_Card
		set KielHyreQuest,108;
		next;
		mes "[ 쬥]";
		mes "򯬧A@p߰";
		getitem 616,1;  //Old card Album
		delitem 7508,1; //Elysia_Ring
		getexp 1000000,0;
	}
	else if (KielHyreQuest >= 108) {
		mes "[ 쬥]";
		mes "..................";
	}
	close2;
	cutin "",255;
	end;
}


//----------------------------------------------------------------------------
// Allysia
//----------------------------------------------------------------------------
kh_mansion,18,30,4	script	Allysia	894,{
	if (KielHyreQuest < 46) {
		mes "[RRƶ]";
		mes "Who are you?";
		mes "How did you get here?";
		mes "Go away";
		close;
	}
	cutin "kh_ellisia",2;
	if (KielHyreQuest < 70) {
		mes "[RRƶ]";
		mes "аݧAݭn HΪ?";
		next;
		switch(select("O:ݭn")) {
		case 1:
			mes "[RRƶ]";
			mes "ҿ׾HάO ۤv|ҷ|ʪHΡAbLhܦh̡̭AFܦhsҥѪ uǪ";
			next;
			mes "[RRƶ]";
			mes "ڪDH 쬥͡Aq20}lsA";
			mes "`ps@XF3HΡAǲκ٬ 1NB2NB3N Hΰ";
			next;
			switch(select("1N?:2N?:3N?")) {
			case 1:
				mes "[RRƶ]";
				mes "A{bҬݨ쪺'^0000FFRRƶ^000000'A";
				mes "NO^FF0000 쬥^000000ͪ1N";
				mes "H";
				next;
				mes "[RRƶ]";
				mes "bº骺fW";
				mes "WHuŦA";
				mes "WHƾǩҰ";
				mes "Huֽ";
				next;
				mes "[RRƶ]";
				mes "YO]kb";
				mes "'Oбb'ӤJA";
				mes "Ұ«HΡA";
				mes "NO1NH";
				next;
				mes "[RRƶ]";
				mes "]fYA";
				mes "ҥHqA";
				mes "]ۭwbeqA";
				mes "ҥHqƽǲߡA";
				mes "IOۤ{XH";
				mes "P";
				next;
				break;
			case 2:
				mes "[RRƶ]";
				mes "p 1N HάOqº";
				mes "uǸ̩ҭlͥXӪHΪܡA";
				mes " 2N HάOA";
				mes "XF̪bs@A";
				mes "MNv";
				mes "ͩRsysGA";
				mes "ҧsH";
				next;
				mes "[RRƶ]";
				mes "M1N@ˬOξf";
				mes "MHuŦʤOA";
				mes "ϥΥͩRs@k";
				mes "WHuߡA";
				next;
				mes "[RRƶ]";
				mes "β1NҨϥΪ'Oбb'A";
				mes "֦ӤJ10UHW";
				mes "eqMĲvʪ";
				mes "'YOбb'A";
				mes "๳H@˯몺";
				mes "ǲ";
				next;
				mes "[RRƶ]";
				mes "iOܥi]\O";
				mes "YOбb~A";
				mes "ϱoHߩM";
				mes "fժYA";
				mes "ϱo}o2N HΡA";
				mes "b6~X{F`ʡA";
				mes "NF";
				next;
				break;
			case 3:
				mes "[RRƶ]";
				mes "M2N HΤ@˪OA";
				mes "3NO ^FF0000 쬥^000000 lA";
				mes "^0000FF^000000 ҳ]pڦ";
				next;
				mes "[RRƶ]";
				mes "SϥξfA";
				mes "ӬOº骺ͩR骺ߡA";
				mes "ϥΧyL";
				mes "֪ŦH";
				mes "HuŦʤOA";
				mes "MH@˥iǥͲz";
				mes "ӫسy";
				next;
				mes "[RRƶ]";
				mes "OбbOϥ 2NA";
				mes "'YOбb'";
				mes "ҧyӻs";
				next;
				mes "[RRƶ]";
				mes "M 2NbįCA";
				mes "wwʫD`uA";
				mes "OͲ歰C";
				mes "sq";
				mes "'YOбb'";
				next;
				mes "[RRƶ]";
				mes "AҨ쪺'^FF0000RR^000000'";
				mes "NO 3NHΪ";
				mes "쪩ڦA";
				mes "{bbut̬FjqcA";
				mes "qHΨtC";
				mes "w쪩s@AF";
				next;
				mes "[RRƶ]";
				mes "ثebϥηs޶iǲߤkA";
				mes "L̦bǰ|";
				mes "g@PͬA";
				mes "bi̾AXƪ";
				mes "դ";
				next;
				break;
			}
		case 2:
			mes "[RRƶ]";
			mes "Yݭnܽиڻ@na";
			break;
		}
	}
	else {
		mes "[RRƶ]";
		mes ".........";
	}
	close2;
	cutin "",255;
	end;
}

//----------------------------------------------------------------------------
// Abduction triggering NPC
//----------------------------------------------------------------------------
lighthalzen,188,200,0	script	Abduction_trigger	-1,3,1,{
//OnTouch2:
OnTouch:
	if (KielHyreQuest == 50) {
		mes "}xQn^hɭԡAbYW@Ѿ_hNh믫F";
		close2;
		percentheal -99,0;
		warp "kh_mansion",30,75;
	}
	end;
}

//----------------------------------------------------------------------------
// Mysterious Woman "Mitchell Layla"
//----------------------------------------------------------------------------
kh_mansion,25,79,4	script	iêkl#kh	727,3,3,{

//OnTouch2:
OnTouch:
	if (KielHyreQuest == 50) {
		mes "YWPı@Ѿ_hӫAeۤ@ iêkl";
		next;
		mes "[??????]";
		mes "AӤFܡA SQAoִNӤFA iAڷQٰdA";
		mes "ڪDA{bܨS믫A LЧA_믫ťn";
		next;
		mes "[??????]";
		mes "Yoˤl... ڤO٧AwڡA ڬOݩqoow ݪn";
		next;
		mes "[??????]";
		mes "'pڨǪ'M ' 쬥 ~'ǲ`RA ҥHbլd";
		next;
		mes "[??????]";
		mes "bʵx󤤬ݨAM ^FF0000 쬥^000000@qWܡA ]ڦXDn߰ݧAA ҥHNΤFjwk AaǫӤF";
		next;
		mes "[??????]";
		mes "...ڥαjwkAaLӡA ڲ``@n藍_A L....аݧAM ^FF0000 쬥^000000OY?";
		next;
		switch(select("ثeҵoͪƱoť:ڤ]ӲM")) {
		case 2:
			mes "[??????]";
			mes "AuOM?";
			mes "M^FF0000 쬥^000000W";
			mes "OHo쪺....";
			mes "ڭ̤|ADˮ`";
			mes "ЧADƱXӬݬݧa";
			next;
			mes "["+strcharinfo(0)+"]";
			mes ".................";
			next;
			mes "[??????]";
			mes "oäOAwnۼL";
			mes "NѨMDڡA";
			mes "nAU";
			mes "Ʊ~|eѶ}";
			next;
			mes "["+strcharinfo(0)+"]";
			mes "....(ݼˤlDIF...)";
			next;
			mes "[??????]";
			mes "....na..";
			mes "ݼˤlA٬O|}frA";
			mes "ڭ̳o";
			mes "ѵAaA";
			mes "۹諸A]AҪD";
			mes "ѵڭ̰";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "?...........";
			next;
			mes "[??????]";
			mes "ڰ... ݭntڡA";
			mes "ϥڭ̩@ɱ";
			mes "O?";
			mes "ڭ̧ҪD";
			mes "NӧiDAa";
			next;
			mes "[??????]";
			mes "^FF0000 쬥^000000HeO";
			mes "ͲcUU˦۰ʾ";
			mes "' 쬥' ~|";
			next;
			mes "[??????]";
			mes "}lOq㭵ùJ";
			mes "pp}l_A";
			mes "۱qLuqOǶ}ӤA";
			mes "pڨǤ譱NLĲFA";
			mes "H@ؤlq";
			mes "ӸLĲ";
			next;
			mes "[??????]";
			mes "墨ҺðݡA";
			mes "A򻡭n}o";
			mes "Yϳw}FA";
			mes "ɦbpڨǭnƷ~";
			mes "@@H]A";
			mes "o浹@SW";
			mes "'^FF0000 쬥^000000'ӭtdA";
			mes "Mڻ{L̤YsA";
			mes "Lܤ|ҹ";
			next;
			mes "[??????]";
			mes "boɭԬMX{FL~ӤHA";
			mes "s'^0000FF 쬥^000000'A";
			mes "SťLLBǻDA";
			mes "Mڭ̦qLA";
			mes "γ\OL^0000FFRRƶ^000000";
			mes "ҥͪpĤ]@w..";
			mes "]\a....";
			next;
			mes "[??????]";
			mes "ϥo˥X{ '^0000FF 쬥^000000'";
			mes "uOe{XҼ˩OA";
			mes "~BөʡBO..";
			mes "ʥ@˰";
			next;
			mes "[??????]";
			mes "DLO֦ۤ˪Qk";
			mes "'^0000FF^000000'}lFLYبƷ~A";
			mes "]ͤWOƷ~ڡA";
			mes "uOߤF֧Q]MMǰ|Ӥw";
			next;
			mes "[??????]";
			mes "H^X|WءA";
			mes "ҥHFΦb䥦vY";
			mes "~̡AϦbǰ|n";
			mes "˦ǥͼJᰵשA";
			mes "iOQڵFA";
			mes "˦t઺A MuZ..";
			mes "QڵF";
			next;
			mes "[??????]";
			mes "NO....u@";
			mes "wwwnĤl̦A";
			mes "o˹LF@qɶAb[eA";
			mes "'^0000FF^000000'lFpڨǬ̡A";
			mes "M~̪";
			mes "}F@KE|";
			next;
			mes "[??????]";
			mes "iO߰ݤFXӦaA";
			mes "j`FYǱA";
			mes "bӻE|'^0000FF^000000'oF";
			mes "sp";
			next;
			mes "[??????]";
			mes "NOHΡA";
			mes "Oq@H]iƦӦA";
			mes "|ۦҦʪؾHΡA";
			mes "Lܩ_ǪObnE|̡A";
			mes "| '^FF0000 쬥^000000'o";
			mes "ݤHv";
			next;
			mes "[??????]";
			mes "٦L '^0000FFRRƶ^000000']O@ˡA";
			mes "iONbQѡA";
			mes "oXѬݤHv '^FF0000 쬥^000000'";
			mes "bx̲{FA";
			mes "n@ƭYL";
			mes "ˤl";
			next;
			mes "[??????]";
			mes "iOܯ_o@O '^0000FF^000000'A";
			mes "HsǤfbXW";
			mes "ܼvF";
			next;
			mes "[??????]";
			mes "Aݳoܤ۵Ma?";
			mes "nlجYص{ת";
			mes "tOA";
			mes "γ\Yس";
			mes "]@w";
			next;
			mes "[??????]";
			mes "]L̪Iᦳ";
			mes "pڨǪYr";
			next;
			mes "[??????]";
			mes " ڧڤw";
			mes "iDAFA{bAFa?";
			mes "AݭnPtA";
			mes "ЧAPa";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "..... ڪNO...";
			mes "........";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "ڳQoܪkҧlޡA";
			mes "ı}ܧXlF";
			mes "..........";
			mes "...... ";
			next;
		case 1:
			mes "AثeҵoͪƱ oťF";
			mes "^FF0000RR^000000GƮɭ MıoۤvnܤpF";
			mes "......... .....";
			next;
			mes "[??????]";
			mes "..... ӬOo˰.. kƱ ......";
			next;
			mes "[??????]";
			mes "ϥHЧAhhU ڭ̴NnF";
			next;
			switch(select("UL:........")) {
			case 2:
				mes "[??????]";
				mes "ڴND|o˰ڡA";
				mes "....ҿרIqNOӻ{..";
				mes "II..";
				next;
				mes "["+strcharinfo(0)+"]";
				mes "?";
				mes "Oڪ..NO...";
				next;
				mes "[??????]";
				mes "ڰ...ЧAnӾߡA";
				mes "AӤHw";
				mes "ڭ̷|td쩳A";
				mes "AuntXڭ̨U";
				mes "լdNiHF";
				next;
				select("..naNˤla");
			case 1:
				mes "[??????]";
				mes "ڴND|o˰ڡA";
				mes "II...";
				mes "...٨SۧڤаڡA";
				mes "ڬOݩ";
				mes "qoow ݪ";
				mes "'^0000FF̫ ԭ^000000'";
				mes "HЧAhh";
				set KielHyreQuest,52;
				close;
			}
		}
	}
	else if (KielHyreQuest == 52) {
		mes "[̫]";
		mes "naAڴNAX˽uaA";
		mes "AhժܡA30~e";
		mes "khL^FF0000 쬥^000000";
		mes "^0000FFRRƶ^000000";
		next;
		mes "[̫]";
		mes "O̾ڨkhkA";
		mes "^0000FFRRƶ^000000b30~eN۱FA";
		mes "{b^FF0000 쬥^000000";
		mes "^0000FFRRƶ^000000M 30~ek";
		mes "M@Ҥ@˰";
		next;
		mes "[̫]";
		mes "M@Ҥ@˰";
		mes "D ^0000FFRRƶ^000000ҫ";
		mes "OONOoO";
		mes "...ڱҤHuA";
		mes "ҥHЧA즶ի";
		mes "墨khiլda";
		next;
		mes "[̫]";
		mes "Aⱡ`nFޮaܪܡAL|AaoӪ";
		next;
		mes "[̫]";
		mes "AǳƦnFܡAڷ|αMΪŸeA즶";
		set KielHyreQuest,54;
		close;
	}
	else if (KielHyreQuest == 54) {
		mes "[̫]";
		mes "˰? ǳƦnF?";
		next;
		switch(select("O:٨S")) {
		case 1:
			mes "[̫]";
			mes "NUA~?";
			close2;
			warp "yuno",54,209;
			end;
		case 2:
			mes "[̫]";
			mes "򵥧AǳƦnܦAӸڻa";
			close;
		}
	}
	else if (KielHyreQuest == 64) {
		mes "[̫]";
		mes "ڰڡAA^ӤFڡA";
		mes "aӤn?";
		mes "AHbթһ`쪺¦A";
		mes "oLʪF";
		next;
		mes "[̫]";
		mes "GM....";
		mes "eUAO 諸A";
		mes "HǬGƬ¦A";
		mes "^FF0000 쬥^000000LhͽתܡA";
		mes "]\X@";
		mes "^0000FF^000000uةM pڨǪYa";
		next;
		mes "[̫]";
		mes " ЧoťnaA";
		mes "YoͦMIpɡA";
		mes "ڭ̪n|LhA";
		set KielHyreQuest,68;
		next;
		warp "kh_mansion",83,50;
		end;
	}
	else if (KielHyreQuest >= 68) {
		mes "[̫]";
		mes "A٨S}?";
		next;
		warp "kh_mansion",83,50;
		end;
	}
}

//----------------------------------------------------------------------------
// Warp portal into Kiehl's 'Room'
// - Anyone can enter
// - After 30-40 seonds this NPC should be disabled.
//----------------------------------------------------------------------------
kh_mansion,29,27,0	script	Kiehl_Room_Warp	45,2,2,{
OnTouch:
	warp "kh_kiehl01",10,31;
	end;

OnEnable:
	initnpctimer;
	misceffect 215;
	end;

OnTimer30000:
	stopnpctimer;
	misceffect 215;
	disablenpc "Kiehl_Room_Warp";
	end;

OnInit:
	disablenpc "Kiehl_Room_Warp";
	end;
}

//============================================================================

//============================================================================
// Rosimier NPCs and other Related NPCs
//============================================================================

//----------------------------------------------------------------------------
// Odd Grandma
//----------------------------------------------------------------------------
yuno,257,140,4	script	ݦiê 	846,{
	if (KielHyreQuest < 54) {
		mes "[]";
		mes "ڭ̮apĨ̥hFO?";
		mes "Ĥlr~ Ĥlr~";
		close;
	}
	else if (KielHyreQuest == 54) {
		mes "[]";
		mes "p p ڭ p";
		mes "n  n ";
		mes "A  Ҧ Ѫ";
		mes "G PP |d s";
		mes "Χa Χa ڭ p";
		mes "n  n ";
		next;
		mes "[]";
		mes "p p ڭ p";
		mes "n  n ";
		mes "A  ` ";
		mes "]  ε۰";
		mes "Χa Χa ڭ p";
		mes "n  n ";
		next;
		switch(select("аݩpbO?:ݼˤlpīܷR?")) {
		case 1:
			mes "[]";
			mes "? ...";
			mes "ڭ̮apĤ@ֺı...";
			mes "noıoon";
			mes "@Ӥ..";
			mes "]npĺΤFA";
			mes "ڤ]~వIaư..";
			next;
			mes "[]";
			mes "]pĤΧڤ]Sవa";
			mes "ҥHa̦I..";
			mes ".. `٭n QDH|..";
			set KielHyreQuest,56;
			next;
			select("аݤpĦb̩O?");
			mes "[]";
			mes "? ..pĶ]̥hFO?";
			mes "~٦bo̰...";
			mes "pĤlıoӵLXhAFa..";
			mes "! AӦbo";
			next;
			mes "[]";
			mes "ڻLiHˮȦ̶?";
			mes "ILӰ!";
			mes ".. ܩpڡA";
			mes "pĤlӽեְ...";
			//GetHEALTHSTATE VAR_CURSE 30
			close;
		case 2:
			mes "[]";
			mes "? ...";
			mes "pĤlCѻnNҥH~|A";
			mes "YıoNܴN^ḩa";
			next;
			mes "[]";
			mes "p򨺻򪺳wO...";
			mes "Χa~ Χa~ ڭ ^0000FFRRƶ^000000A";
			mes "nAʤFA֨ӳo̺Χa";
			next;
			mes "[]";
			mes "]poˤı]వaư..";
			close;
		}
	}
	else if ((KielHyreQuest >= 56) && (KielHyreQuest < 60)) {
		mes "[]";
		mes "ڭ̮apĨ̥hFO?";
		mes "Ĥlr~ Ĥlr~";
		if (countitem(7500) < 1) { 
			close;
		}
		else {
			next;
			switch(select("RRƶ? DO...")) {
			case 1:
				cutin "kh_ellisia_port",1;
				mes "RRƶveݤF";
				next;
				cutin "",255;
				mes "[]";
				mes "?";
				mes "..RR! ^0000FFRRƶ^000000!!";
				mes "A....A{ѧڭ̮aRR?!";
				mes "ڭ̮apĦb̩O?!?!";
				next;
				mes "[]";
				mes "ڭ̮ap... ڭ̮aRR";
				mes "Q}aA]S^ӤF!!";
				mes "YADڭ̮apĦb̪";
				mes "аȥiD?!?!";
				next;
				mes "[" + strcharinfo(0) + "]";
				mes "...⮳ۨve";
				mes "ܪ@qɶפwA";
				mes "}lۤvۨۻyF";
				close;
			}
		}
	}
	else if (KielHyreQuest >= 60) {
		mes "[]";
		mes "ڭ̮a ^0000FFRRƶ^000000 ӺΤFa?";
		mes "? {ljr?";
		mes "NYa..";
		mes "Χa Χa~";
		close;
	}
}

//----------------------------------------------------------------------------
// Old Lady; gives you the key to the Rosimier Mansion
//----------------------------------------------------------------------------
yuno,250,132,0	script	#kh	711,{
	if (KielHyreQuest < 56) {
		mes "[]";
		mes " nְ...";
		mes "iOWF~a";
		mes "ﵬ....";
		close;
	}
	else if (KielHyreQuest == 56) {
		if (checkweight(7498,1) == 0) {
			mes "Цbo̼Ȱ@U !!";
			mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
			close;
		}
		mes "[]";
		mes "A̪ѮOd...";
		next;
		switch(select("......:߰ݦ쥤Ʊ..")) {
		case 1:
			mes "[]";
			mes "ڤ]OWF~r.....";
			close;
		case 2:
			mes "[]";
			mes "? .. 쥤r? 쥤ڬOܼաAoOڦnͪ˰ڡAs'^0000FFRRƶ^000000'...";
			mes "LoCR.. .. oO@ܺ}GS}B...";
			next;
			mes "[]";
			mes "۱qƥ󤧫 쥤FANܦӼˤlFA...";
			next;
			select("^3355FFRRƶ^000000pjO...?");
			mes "[]";
			mes "^0000FFRRƶ^000000....uܺ}GO.. P˪kHݤF ]|Qogr";
			next;
			mes "[]";
			mes "ҥHboP okhܦhAרOùƦ̷R֮al i̬YAڶǻDLVo DB...";
			next;
			mes "[]";
			mes "LSh[]^0000FFRRƶ^000000L@YAŤFAni......";
			next;
			select("ùƦ̷R֮a??");
			mes "[]";
			mes  "ڰ.. ùƦ̷R֮abպO vܱy[aڡAnOb..... ^0000FFRRƶ^000000L@A";
			mes "iOjlbƷ~WѡAa@b@i NF....";
			next;
			mes "[]";
			mes "OӴN ޲zoxA_ͫo浹ګO...";
			next;
			select("аݧگiJx?");
			mes "[]";
			mes "....";
			mes "ѹ껡OiH..";
			mes "PıA ^0000FFRRƶ^000000ܼAڴN۫HA_ͥ浹AA";
			mes "AbHӥHeA_ٵڧr";
			getitem 7498,1; //Rosimier_Key
			set KielHyreQuest,58;
			close;
		}
	}

	else if ((KielHyreQuest == 58) &&
		(countitem(7499) < 1) || 
		(countitem(7500) < 1) || 
		(countitem(7501) < 1) || 
		(countitem(7502) < 1)) {
		mes "[]";
		mes "ťnHӧrAЧA֤@In";
		close;
	}

	else if ((KielHyreQuest == 58) &&
		(countitem(7499) == 1) && 
		(countitem(7500) == 1) && 
		(countitem(7501) == 1) && 
		(countitem(7502) == 1)) {
		mes "[]";
		mes "аݨƱٶQ?ѹ껡oФl";
		mes "SȿFڡAѦNQǶťD̳hF";
		next;
		select("а^0000FFRRƶ^000000....?");
		mes "[]";
		mes "ڰ...";
		mes "WLùƦ̷R֮a lA";
		mes "ڤOi^0000FRRƶ^000000";
		mes "nB?";
		next;
		mes "[]";
		mes "ƹWia";
		mes "wwBdFA";
		mes "ҥHɶ[FA";
		mes "LN򥼱BdBF";
		next;
		mes "[]";
		mes "ҥHƶˤߪ";
		mes "^0000FRRƶ^000000AN۱F..";
		next;
		mes "[]";
		mes "QnDӸ`ܡAЧAh";
		mes "' 쬥' ǰ|n䪺ҧaA";
		mes "h̷|b^0000FFRRƶ^000000";
		mes "鼴_ӪҡAЧAhݥLa";
		delitem 7498,1; //Rosimier_Key 
		set KielHyreQuest,60;
		close;
	}
	else if (KielHyreQuest >= 60) {
		mes "[]";
		mes "nUBF....";
		mes "Sĵh..";
		close;
	}
}


//----------------------------------------------------------------------------
// Warp portal into Rosimier Mansion
//----------------------------------------------------------------------------
yuno,273,141,0	script	Rosimmir_Entrance	45,2,2,{
OnTouch:
	if (countitem(7498) < 1) {
		end;
	}
	else {
		warp "kh_rossi",20,92;
	}
	end;
}

//----------------------------------------------------------------------------
// Rosimier Mansion, first floor; Table
//----------------------------------------------------------------------------
kh_rossi,23,23,0	script	l#khr2	111,{
	if (checkweight(7499,1) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	if (KielHyreQuest < 58) {
		mes "O@ӪŪŪP";
		close;
	}
	else if (KielHyreQuest < 60) {
		if (countitem(7499) < 1) {
			cutin "kh_family_port",1;
			mes "dݮѮo{Ѯ઺POiH}AbP̵o{F@Ӭۮ";
			getitem 7499,1; //Family_Portrait
		}
		else {
			mes "O@ӪŪŪP";
		}
	}
	else{
		mes "uOoaڨveũPӤwAݤ줰䥦~";
		close;
	}
	close2;
	cutin "",255;
	end;
}

//----------------------------------------------------------------------------
// Rosimier Mansion, first floor; Shelf
//----------------------------------------------------------------------------
kh_rossi,92,40,0	script	d#khr	111,{
	if (checkweight(7500,1) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	if (KielHyreQuest < 58) {
		mes "ݤ줰䥦~";
		close;
	}
	else if (KielHyreQuest < 60) {
		if (countitem(7500) < 1) {
			mes "@ӳQP";
			next;
			switch(select("ϥ_:ޥ")) {
			case 1:
				switch(select("_ 1:_ 2")) {
				case 1:
					mes "ϥ_ͫ T_'!'@n";
					mes "PQ}ҤFA";
					mes "P̭@";
					mes "kHveA";
					next;
					cutin "kh_ellisia_port",2;
					mes "kH۸ ^0000FFRRƶ^000000@Ҥ@ˡA";
					mes "ۮث᭱g 'R ^0000FFRRƶ^000000..";
					mes "i' d";
					getitem 7500,1; //Elysia_Portrait
					close2;
					cutin "",255;
					end;
				case 2:
					close;
				}
			case 2:
				mes "ݤ줰䥦~";
				close;
			}
		}
		else {
			mes "o̬Oo{kHvea";
			close;
		}
	}
	else {
		mes "o̬Oo{kHveaݤ줰䥦~";
		close;
	}
}


//----------------------------------------------------------------------------
// Rosimier Mansion, top floor; Desk
//----------------------------------------------------------------------------
kh_rossi,144,286,0	script	Ѯ#khr3	111,{
	if (checkweight(7501,1) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	if (KielHyreQuest < 58) {
		mes "3өPѮ";
		close;
	}
	else if (KielHyreQuest < 60) {
		mes "3өPѮ";
		next;
		switch(select("Ĥ@өP:ĤGөP:ĤTөP:z")) {
		case 1:
			mes "nQ򵹥dF}";
			close;
		case 2:
			if (countitem(7501) < 1) {
				mes "}PݨFH";
				next;
				mes "g 'K.H' YgH nng^0000FFRRƶ^000000H";
				getitem 7501,1; //Kyll_Hyre_Letter2
				close;
			}
			else {
				mes "ݨF@ӪŪP";
				close;
			}
		case 3:
			mes "}PݨF@iȱ";
			next;
			mes "H󪺤eO iV";
			mes "^0000FFRRƶ^000000DBeA";
			mes "n^0000FFRRƶ^000000q i";
			mes "oqB٫";
			close;
		case 4:
			mes ".......";
			close;
		}
	}
	else{
		mes "@Ӷ}ҪP MũPѮ";
		close;
	}
}

//----------------------------------------------------------------------------
// Rosimier Mansion, top floor; Bookshelf
//----------------------------------------------------------------------------
kh_rossi,148,288,0	script	d#khr2	111,{
	if (checkweight(7502,1) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	if (KielHyreQuest < 58) {
		mes "۲ֿnF\hǹЪ";
		close;
	}
	else if (KielHyreQuest < 60) {
		if (countitem(7502) < 1) {
			mes "[d~Ao{Fbѥ̭ȱ";
			getitem 7502,1; //Piece_Memo_Of_James
			close;
		}
		else {
			mes "۲ֿnF\hǹЪ";
			close;
		}
	}
	else{
		mes ".......۲ֿnFǦǹЪ";
		close;
	}
}

//----------------------------------------------------------------------------
// Rosimier Mansion, top floor; Bed
//----------------------------------------------------------------------------
kh_rossi,154,286,0	script	ɾQ#khr	111,{
	if (KielHyreQuest < 58) {
		mes "@iwzynɾQAiOWwֿnF@IǹСAҥHPıH";
		close;
	}
	else if (KielHyreQuest < 60) {
		mes "@iwzynɾQAiOWwֿnF@IǹСAҥHPıH";
		next;
		switch(select("dݧɾQW:dݧɾQU")) {
		case 1:
			mes "dݧɾQWɰ_F@Iǹ";
			mes "........";
			next;
			mes "S󦨪GuıoVIΪA";
			percentheal -10,0;
			close;
		case 2:
			mes "dݧɾQUɡA";
			mes "ݨY@Ө۶}Ҫ٫lA";
			mes "Loݤ٫";
			close;
		}
	}
	else {
		mes "@isêɾQ";
		close;
	}
}

//----------------------------------------------------------------------------
// Fisherman
//----------------------------------------------------------------------------
yuno_fild12,232,222,0	script	Ѻ	709,{
	if (KielHyreQuest < 60) {
		mes "[]";
		mes "̪񳣳쳽";
		mes "uOV|ڦ۱qo̶inutA";
		mes "o̪NܱoI_ǤFA쳽...";
		mes "....";
		close;
	}
	else if (KielHyreQuest == 60) {
		mes "[]";
		mes "? AOְ? ڦܭn? ƱneUڪ Х§ §...";
		next;
		mes "[]";
		mes "....̪oǦ~H...... QQW@YsAͳ ]LF@qɶ...";
		if (countitem(544) >= 10)  {
			next;
			mes "[]";
			mes "? Aoӵڧr?  ݭno˧a..... ...§AADܴNݧڧa";
			next;
			select("30~ebo...");
			mes "[]";
			mes "? ڷQ@Q...30~e... ڰ...ڷQ_ӤFA]NO... TlO 30~e 8 20.....";
			mes "ѬOڦѱCͤڡAҥHڰOoܲM";
			next;
			mes "[]";
			mes "ѧڷQeo@§... ҥH@jNXxFALlSLh[ Pıl̫ܭA٥H 'WF!'";
			mes "ΤOԤWӤ oo{O@k";
			next;
			mes "[]";
			mes "~NqժĵƶFAӱok wWۤvDHAMSQLIqFҥHN۱F ...uO@aå";
			next;
			mes "[]";
			mes "ҥHĵƶH ⨺k飼ɡAq򪺨kĪ̤ F@Ӱ{{F";
			next;
			mes "[]";
			mes "iOĵƶH So{NLFAڵĵƶHF pߪ^hMF";
			next;
			mes "[]";
			mes "iOoO^ưڡAݰ_ӫD`Q٫ Nb̰?";
			next;
			mes "[]";
			mes "|ondƱ.. ߲zQ oO骺򪫰ڤ߲z|I򪺡AӷQ@QHOwg`FA";
			mes "۪H٬On~򪺬Uh?";
			next;
			mes "[]";
			mes "ٷQۧoӪF汼 ǳƶRӪF谵ڦѱCͤ§OAGoo{Y@kl ܧVOo]LӡA";
			mes "ҥHڴNYLƪ..bo䵥LF";
			next;
			mes "[]";
			mes "쨺kl]ڭe ݤF@}lANݧ AOO_ kl骺HOAҥHڴN^O";
			next;
			mes "[]";
			mes "LSݰ_ Sߨ٫FAҥHڴNQ쪬pOOIӹlڡANˤƱDA";
			mes "N^LڤF賣Sߨ";
			next;
			mes "[]";
			mes "Mklڻ LuD`ݭnӧ٫٭sDکOAåBٻL@N HR^٫O";
			next;
			mes "[]";
			mes "ҥH äO.. FAuOıokHݰ_ӫsDܥi... ҥHN⨺٫ 浹Fk";
			next;
			mes "٫ݰ_ӨäOܶQAoSQLڤF@N}FA";
			mes "̫bڥť LOb̭ײz@a ӺôͩRHڡAᨺӤHNF...";
			next;
			mes "[]";
			mes "Nѫob ڪOи̤F";
			next;
			select("аݧAٰOokHWr?");
			mes "[]";
			mes "ڷQ@Q.... ns... '?' '?' jOoWr...";
			next;
			mes "[]";
			mes "ƹjw[ƱFAҥH]SAz|oƱ.... LLͬaٰOoO...";
			mes "'^FF0000bF_ ˪L ĵƶ Sa񪺲DF^000000' ˤl..";
			delitem 544,10; //Fish_Slice
			set KielHyreQuest,62;
			close;
		}
		else {
			close;
		}
	}
	else if (KielHyreQuest >= 62) {
		mes "[]";
		mes "AO_Ӧba?";
		mes "Ѱ... ~HOФO";
		mes "otl..";
		mes "ڦA@MЧAťnðO";
		next;
		mes "[]";
		mes "~ک";
		mes "'^FF0000bF_ ˪L ĵƶ";
		mes "Sa񪺲DF^000000'ڡA";
		mes "ڬOo򻡪......";
		mes "٦ƭnݧڪ?";
		mes "";
		mes "ڦA]Si^Qo..";
		close;
	}
}

//----------------------------------------------------------------------------
// Kiel Hyre's hut; Wooden Board
//----------------------------------------------------------------------------
yuno_fild09,158,217,0	script	O#kh	111,{
	if (checkweight(7503,1) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	if ((KielHyreQuest < 62) || (KielHyreQuest >= 64)) {
		mes "ݰ_ӨS򦳥ΪObO";
		close;
	}
	else if (KielHyreQuest == 62) {
		mes "۪OAOWֲӪg K.H r";
		next;
		mes "F[Oյ۲ʡAU";
		mes "HۮءAۮظ̵eۤb̨L";
		mes "~HveA";
		next;
		cutin "kh_kyel_port",2;
		mes "......PıW";
		mes "^FF0000 쬥^000000";
		mes "";
		getitem 7503,1;	//Man_Portrait
		set KielHyreQuest,64;
		next;
		cutin "",255;
		mes "ݼˤlwֿnF֪";
		mes "^ '̫'a";
		close;
	}
}

//============================================================================
// Kiehl Hyre's Room and Boss NPCs
//============================================================================
// Beyond here the NPC for the final areas.
// Now, this area is not someplace you wanna slow down so
// you can pick up dialog. I used packet logging to pull
// what I could and for the sake of the two people with me,
// did not bother doing all the proper NPC positioning
// or some of the 'error/wrong option' dialogs.
// All the doors are kind of weird.
//============================================================================

//----------------------------------------------------------------------------
// 򺸪ж; Receiver (Gives black keycards upon killing mobs)
//----------------------------------------------------------------------------
kh_kiehl01,17,39,0	script	T#kh	111,{
	if (mobcount("kh_kiehl01","Receiver#kh::OnMyMobDead") < 1) {
		mes "s...ss...s....";
		if (KielHyreQuest == 74) {
			next;
			mes "qT̶Ǩӱa";
			mes "MYӤHn";
			next;
			mes "[????]";
			mes "SLհ...";
			mes "OˬӪȶ...";
			mes "IIA...";
			mes "AබQFǫӪA";
			mes "]\ڷ|Aڪb]@wڡA";
			mes " жQӧڧa";
			set KielHyreQuest,76;
		}
		close2;
		monster "kh_kiehl01",16,32,"RR",1739,1,"T#kh::OnMyMobDead";
		monster "kh_kiehl01",18,31,"RRX",1740,1,"T#kh::OnMyMobDead";
		end;
	}

	else {
		end;
	}

OnMyMobDead:
	if (mobcount("kh_kiehl01","T#kh::OnMyMobDead") <1) { 
		makeitem 7506,1,"this",19,36;
	}
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; Flower Vase (Gives...password...for Box)
//----------------------------------------------------------------------------
kh_kiehl01,13,40,0	script	~#kh1	111,{
	if (KielHyreQuest < 74) {
		mes "۪~";
		close;
	}
	if (KielHyreQuest >= 74) {
		mes "۪~";
		next;
		switch(select("_~:}~:~˹L")) {
		case 1:
			mes "SF";
			close;
		case 2:
			mes "}A";
			mes "......OpڨǪSs~?";
			close;
		case 3:
			mes "~g SOr";
			mes "'^FF0000The rabbit often observes the door.'";
			mes "'The night eats the pickled orange.^000000'";
			close;
		}
	}
	else{
		mes "~g SOr";
		mes "'^FF0000The rabbit often observes the door.'";
		mes "'The night eats the pickled orange.^000000'";
		close;
	}
}


//----------------------------------------------------------------------------
// 򺸪ж; Box
//----------------------------------------------------------------------------
kh_kiehl01,19,25,0	script	cl#kh1	111,{
	if (checkweight(7505,1) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	if (KielHyreQuest < 74) {
		mes "@clAclWg۩_Ǫr_ͪƦC";
		next;
		input .@KHInput$;
		mes "'~' AҿJt~";
		close;
	}
	if (KielHyreQuest >= 74) {
		if (countitem(7505) < 1) {
			mes "@clAclWg۩_Ǫr _ͪƦC";
			next;
			input .@KHInput$;
			if (.@KHInput$ == "open the door") {
				mes "}cl ''@n q̶ǨӤFAcḽ ^FF0000p_^000000";
				getitem 7505,1; //Toy_Key
				close;
			}
			else {
				mes "~' AҿJt~";
				close;
			}
		}
		else {
			mes "}cḽSF";
			close;
		}
	}
	else{
		mes "}cḽSF";
		close;
	}
}

//----------------------------------------------------------------------------
// 򺸪ж; Big Door, (First)
// - Anyone can pass through this door
// - Consume one Black KeyCard when opened.
// - Only one person actually needs to open it.
//----------------------------------------------------------------------------
kh_kiehl01,44,33,0	script	j#BigDoorKHQ1	111,{
	if (.KHDoor1Opened == 0) {
		mes "OAb⨺ݨֲӪp_";
		next;
		input .@KHInput$;
		if (.@KHInput$ == "¦_ͥd") {
			if (countitem(7506) >= 1) {
				mes "^0000FF¦_ͥd^000000b̭ ''@n }ҤF";
				delitem 7506,1; //Black_Key_Card
				donpcevent "Big_Door_1_Warp::OnEnable";
				enablenpc "Big_Door_1_Warp";
				set .KHDoor1Opened,1;
				close;
			}

		}
		mes "}";
		close;
	}

	else {
		mes "wg}ҵ";
		close;
	}
}

kh_kiehl01,43,33,0	script	Big_Door_1_Warp	45,1,1,{
OnEnable:
	initnpctimer;
	misceffect 215;
	end;

OnInit:
	disablenpc "Big_Door_1_Warp";
	end;

OnTimer30000:
	stopnpctimer;
	misceffect 215;
	disablenpc "Big_Door_1_Warp";
	set getvariableofnpc(.KHDoor1Opened,"j#BigDoorKHQ1"),0;
	end;

OnTouch:
	warp "kh_kiehl01",55,33;
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; Big Door, (second)
// - Consume Toy Key when opened.
// - Only one person actually needs to open it.
//----------------------------------------------------------------------------
kh_kiehl01,174,40,0	script	j#BigDoorKHQ2	111,{
	if (.KHDoor2Opened == 0) {
		mes "O";
		next;
		input .@KHInput$;
		if (.@KHInput$ == "_") {
			if (countitem(7505) >= 1) {
				mes "^FF0000_^000000b̭ ''@n }ҤF";
				delitem 7505,1; //Toy_Key
				donpcevent "Big_Door_2_Warp::OnEnable";
				enablenpc "Big_Door_2_Warp";
				set .KHDoor2Opened,1;
				close;
			}

		}
		mes "}";
		close;
	}
	else {
		mes "wg}ҵ";
		close;
	}
}

kh_kiehl01,174,39,0	script	Big_Door_2_Warp	45,1,1,{
OnEnable:
	initnpctimer;
	misceffect 215;
	end;

OnInit:
	disablenpc "Big_Door_2_Warp";
	end;

OnTimer30000:
	stopnpctimer;
	misceffect 215;
	disablenpc "Big_Door_2_Warp";
	set getvariableofnpc(.KHDoor2Opened,"j#BigDoorKHQ2"),0;
	end;

OnTouch:
	warp "kh_kiehl01",173,52;
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; Big Door, (Third)
// - Consume one Black KeyCard when opened.
// - Only one person actually needs to open it.
//----------------------------------------------------------------------------
kh_kiehl01,77,108,0	script	j#BigDoorKHQ3	111,{
	if (.KHDoor3Opened == 0) {
		mes "^3355FFThe door is locked,";
		mes "but there is a narrow";
		mes "slot next to the doorknob.^000000";
		next;
		input .@KHInput$;
		if (.@KHInput$ == "¦_ͥd") {
			if (countitem(7506) >= 1) {
				mes "^0000FF¦_ͥd^000000b̭ ''@n }ҤF";
				delitem 7506,1; //Black_Key_Card
				donpcevent "Big_Door_3_Warp::OnEnable";
				enablenpc "Big_Door_3_Warp";
				set .KHDoor3Opened,1;
				close;
			}

		}
		mes "}";
		close;
	}
	else {
		mes "wg}ҵ";
		close;
	}
}

kh_kiehl01,78,108,0	script	Big_Door_3_Warp	45,1,1,{
OnEnable:
	initnpctimer;
	misceffect 215;
	end;

OnInit:
	disablenpc "Big_Door_3_Warp";
	end;

OnTimer30000:
	stopnpctimer;
	misceffect 215;
	disablenpc "Big_Door_3_Warp";
	set getvariableofnpc(.KHDoor3Opened,"j#BigDoorKHQ3"),0;
	end;

OnTouch:
	warp "kh_kiehl01",68,108;
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; Big Door, (Fourth)
// - Consume TWO Black KeyCard when opened.
// - Only one person actually needs to open it.
//----------------------------------------------------------------------------
kh_kiehl01,42,177,0	script	j#BigDoorKHQ4	111,{
	if (.KHDoor4Opened == 0) {
		mes "^3355FFThe door is locked,";
		mes "but there is a narrow";
		mes "slot next to the doorknob.^000000";
		next;
		input .@KHInput$;
		if (.@KHInput$ == "¦_ͥd") {
			if (countitem(7506) >= 2) {
				mes "^0000FF¦_ͥd^000000b̭ ''@n }ҤF";
				delitem 7506,2; //Black_Key_Card
				donpcevent "Big_Door_4_Warp::OnEnable";
				enablenpc "Big_Door_4_Warp";
				set .KHDoor4Opened,1;
				close;
			}
		}
		mes "}";
		close;
	}

	else {
		mes "wg}ҵ";
		close;
	}
}

kh_kiehl01,41,177,0	script	Big_Door_4_Warp	45,1,1,{
OnEnable:
	initnpctimer;
	misceffect 215;
	end;

OnInit:
	disablenpc "Big_Door_4_Warp";
	end;

OnTimer30000:
	stopnpctimer;
	misceffect 215;
	disablenpc "Big_Door_4_Warp";
	set getvariableofnpc(.KHDoor4Opened,"j#BigDoorKHQ4"),0;
	end;

OnTouch:
	warp "kh_kiehl01",49,177;
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; Robots
//----------------------------------------------------------------------------
kh_kiehl01,15,179,0	script	H#kh1	111,{
	if (mobcount("kh_kiehl01","Robots#kh1::OnMyMobDead") < 1) {
		mes "ĲIޫAHέ̴NXӤF";
		close2;
		monster "kh_kiehl01",18,181,"RRX",1740,1,"H#kh1::OnMyMobDead";
		monster "kh_kiehl01",18,180,"RR",1739,1,"H#kh1::OnMyMobDead";
		monster "kh_kiehl01",18,179,"RRX",1740,1,"H#kh1::OnMyMobDead";
		monster "kh_kiehl01",18,178,"RR",1739,1,"H#kh1::OnMyMobDead";
		end;
	}
	else  {
		end;
	}

OnMyMobDead:
	if (mobcount("kh_kiehl01","H#kh1::OnMyMobDead") < 1) { 
		makeitem 7506,1,"this",18,180;
		}
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; Dummy Robots
//----------------------------------------------------------------------------
kh_kiehl01,15,177,0	script	H#kh2::RobotsKHQ	111,{
	end;
}
kh_kiehl01,15,180,0	duplicate(RobotsKHQ)	H#kh3	111
kh_kiehl01,15,182,0	duplicate(RobotsKHQ)	H#kh4	111
kh_kiehl01,35,187,0	duplicate(RobotsKHQ)	H#kh5	111
kh_kiehl01,37,187,0	duplicate(RobotsKHQ)	H#kh6	111
kh_kiehl01,39,187,0	duplicate(RobotsKHQ)	H#kh7	111
kh_kiehl01,41,187,0	duplicate(RobotsKHQ)	H#kh8	111

//----------------------------------------------------------------------------
// 򺸪ж; Big Door, (Fifth, and final)
// - Anyone can pass through this door
// - Consumes 4 Solid Iron Pieces
//----------------------------------------------------------------------------
kh_kiehl01,166,187,0	script	j#BigDoorKHQ5	111,{
	if (($@KHQuestBusy == 0) && (KielHyreQuest >= 74) && (KielHyreQuest <= 106)) {
		if (KielHyreQuest < 86) {
			mes "@yjAniHʶǨ's~s'";
			next;
			select("::n̪:Ԫ:");
			mes "ĲIA]̴NX{FADO?";
			close2;
			set @KHDoorPushAttempt,@KHDoorPushAttempt+1;
			monster "kh_kiehl01",163,183,"RR",1739,1;
			monster "kh_kiehl01",163,179,"RRX",1740,1;
			monster "kh_kiehl01",169,183,"RR",1739,1;
			monster "kh_kiehl01",169,179,"RRX",1740,1;
			if (@KHDoorPushAttempt >= 3) { 
				set KielHyreQuest,86; 
			}
			end;
		}
		else if ((KielHyreQuest > 84) && (KielHyreQuest < 94)) {
			mes "ĲIFnXAI}ҤFAݼˤlb_̶ӪFΤOܪOiH}Ҫ";
			next;
			switch(select("K:êKH:wKH:KH::")) {
			case 1:
			case 2:
				break;
			case 3:
				if (countitem(7507) >= 1) {
					if (KielHyreQuest < 92) {
						mes "ݼˤlyL}ҤF@IA";
						mes "AIOqܪ|}Ҫˤl";
						delitem 7507,1; //Hard_Piece_of_Steel
						set KielHyreQuest,KielHyreQuest+2;
						close;
					}
					else if (KielHyreQuest == 92) {
						mes "ϥΤF^0000FFwKH^000000A";
						mes "ΦF@ӥiHVŶ";
						delitem 7507,1; //Hard_Piece_of_Steel
						set KielHyreQuest,94;
						close;
					}
				}
				else {
					mes "򥻴NSb";
					close;
				}
			case 4:
			case 5:
			case 6:
				mes "򥻴NSb";
				close;
			}

			mes "򥻴NSb";
			close;
		}
		else if ((KielHyreQuest >= 94) && (KielHyreQuest <= 104)) {
			if (.KHDoor5Opened == 0) {
				mes "V";
				next;
				switch(select("O:n")) {
				case 1:
					close2;
					donpcevent "Big_Door_5_Warp::OnEnable";
					enablenpc "Big_Door_5_Warp";
					set .KHDoor5Opened,1;
					end;
				case 2:
					close;
				}
			}
			else {
				mes "wg}ҵ";
				close;
			}
		}
		else {
			mes "j";
			close;
		}
	}
	else {
		mes "ܺ򥴤}";
		close;
	}
}

kh_kiehl01,166,186,0	script	Big_Door_5_Warp	45,1,1,{
	end;

OnEnable:
	initnpctimer;
	misceffect 215;
	end;

OnTimer30000:
	stopnpctimer;
	misceffect 215;
	disablenpc "Big_Door_5_Warp";
	set getvariableofnpc(.KHDoor5Opened,"j#BigDoorKHQ5"),0;
	end;

OnInit:
	disablenpc "Big_Door_5_Warp";
	end;

OnTouch:
	if (KielHyreQuest >= 46)
		warp "kh_kiehl02",50,7;
	else
		warp "kh_kiehl01",166,183;
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; Kiehl_Room_Trap (Entry way trap)
//----------------------------------------------------------------------------
kh_kiehl02,49,10,0	script	Kiehl_Room_Trap	-1,5,3,{
	end;

OnTouch:
	if (.KHTrapSprung < 1) {
		set .KHTrapSprung,1;
		set $@KHQuestBusy,1;
		initnpctimer;
		monster "kh_kiehl02",47,13,"RRX",1740,1;
		monster "kh_kiehl02",45,13,"RR",1739,1;
		monster "kh_kiehl02",49,13,"q]",1745,1;
		monster "kh_kiehl02",51,13,"RRX",1740,1;
		monster "kh_kiehl02",53,13,"RR",1739,1;
		monster "kh_kiehl02",49,13,"q]",1745,1;
	}
	end;

OnTimer300000:
OnTimer600000:
OnTimer900000:
	if (getmapusers("kh_kiehl02") == 0) {
		donpcevent "KiehlRoom::OnReset";
		stopnpctimer;
	}
	end;

OnTimer1200000:
	donpcevent "KiehlRoom::OnReset";
	stopnpctimer;
	end;

OnGlobalTimerOff:
	stopnpctimer;
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; Kiehl
// - Timer will drop to 3 minutes once Kiehl is defeated.
//----------------------------------------------------------------------------
kh_kiehl02,50,52,4	script	#Original	902,{
	if (checkweight(908,200) == 0) {
		mes "Цbo̼Ȱ@U !!";
		mes "Aa~ӦhFAҥHo~FЧ⨭W~AAӬDԧa";
		close;
	}
	cutin "kh_kiel01",2;
	if ((KielHyreQuest < 94) || (KielHyreQuest >= 106)) {
		mes "[]";
		mes ".............";
		close2;
		cutin "",255;
		end;
	}
	if ((KielHyreQuest == 94) && (getvariableofnpc(.KHKilled,"KiehlRoom") < 5)) {
		mes "[]";
		mes "AשڤFAӨڳoHٯuOWAաAȤjݡAڤ]QӬwڪbA..";
		next;
		mes "[]";
		mes "pG⨺ӵިܡAu|ѤUߴߪAYAQnܪΧAOӮ";
		close2;
		cutin "",255;
		set getvariableofnpc(.KHKilled,"KiehlRoom"),0;
		monster "kh_kiehl02",50,52,"RRX",1740,1,"KiehlRoom::OnKiehlMobDead";
		monster "kh_kiehl02",50,52,"RR",1739,1,"KiehlRoom::OnKiehlMobDead";
		monster "kh_kiehl02",50,52,"q]",1745,1,"KiehlRoom::OnKiehlMobDead";
		monster "kh_kiehl02",50,52,"RRX",1740,1,"KiehlRoom::OnKiehlMobDead";
		monster "kh_kiehl02",50,52,"RR",1739,1,"KiehlRoom::OnKiehlMobDead";
		monster "kh_kiehl02",50,52,"q]",1745,1,"KiehlRoom::OnKiehlMobDead";
		monster "kh_kiehl02",50,52,"RRX",1740,1,"KiehlRoom::OnKiehlMobDead";
		hideonnpc "#Original";
		end;
	}
	else if ((KielHyreQuest == 94) && (getvariableofnpc(.KHKilled,"KiehlRoom") >= 5)) {
		cutin "kh_kiel03",2;
		mes "[]";
		mes "GMOҿ襤ȹO٤?";
		mes "naANo˶ۤ]ܵLA";
		mes "Nťťݧڪ쩳eUFAǨƱO?";
		mes "OOsAӱکO?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "^FF0000 쬥^000000ͥsڨӪAA";
		mes "LۤvLD`hWrA";
		mes "{bӰo@FaA";
		mes "^0000FF^000000Hڦ^Ѫa";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "A{boOۭtPڰڡAO諸!";
		next;
		cutin "kh_kiel01",2;
		mes "[]";
		mes "Pڰ..";
		mes "iOA̤]O@˶ܡAгyOHAMHгyOH";
		next;
		mes "[]";
		mes "FۨQqPتHΰ窺A̡AMFڪؼСAڧڰPڭ̴ѵһݭnH̡A";
		mes "oکMA̦򤣦P?";
		next;
		mes "[]";
		mes "MکҰHέ̡A۩MH@˪ߡAbSǲߤeO|PPAskhMhWPı";
		next;
		cutin "kh_kiel04",2;
		mes "[]";
		mes "iOHO@˪AbePıhWAMDPۤvP 'H 'AA̤H٤OèӹA~O`Ʊr..";
		mes "pAYܧAN|D";
		next;
		mes "[]";
		mes "ܩpڭnڵAסAF@qᦱRAo@Ӯax}ݧԪˡAڤ۫HL|ڰXnHΨӰ";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "OڡAM]|Fƫo諸HڡAiO^0000FF^000000AX@pڨǪ~OAoؤHNHx";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "ЧAL̰a!A~UL̪ܷ|W[hHr";
		next;
		cutin "kh_kiel02",2;
		mes "[]";
		mes "AٰOoio̮ɩҬݨ쪺Ĥ@өж?۸˺pĪ~өж..";
		next;
		mes "[]";
		mes "̬OڳQs@XӮɪжڡAiOHu@쪫~oOO?";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "?????";
		next;
		cutin "kh_kiel03",2;
		mes "[]";
		mes "2NҰXӪHάOxYrAڭ̱qXͪ@Ѷ}lANQqpڨǪ¾Ш|F";
		next;
		mes "[]";
		mes "ڭ̾HΨӻO@YԪШ|.. OBǲ߯OB۪pPP{..";
		next;
		mes "[]";
		mes "]\OܦN֦ʳD..άO~Ш|DA䥦|bǲߩMF";
		next;
		mes "[]";
		mes "ҥͦsUӪuڤ@Aڤ˹墨ɭԨSWrڡAڨWs ^0000FF^000000F";
		next;
		mes "[]";
		mes "pڨǪ? L̪ǫDHʡAڤHDMڡAiOڤ|ުPL̪";
		next;
		mes "[]";
		mes "]OHAQMQ֦HaShNOHʰ!";
		next;
		mes "[]";
		mes "IL... 藍_ 藍_AڤQAAܤFAڷ|AAЧAN^ha";
		next;
		cutin "",255;
		mes "[̫]";
		mes "oˤl!^0000FF 쬥^000000!";
		mes "ڭ̧AHs@kZMpèө뮷A";
		set KielHyreQuest,100;
		hideoffnpc "̫#KiehlRoom";
		hideoffnpc "n#KHAgent1";
		hideoffnpc "n#KHAgent2";
		hideoffnpc "n#KHAgent3";
		hideoffnpc "n#KHAgent4";
		next;
	}
	if ((KielHyreQuest == 100) && (getvariableofnpc(.KHKilledBoss,"KiehlRoom") < 1)) {
		set getvariableofnpc(.KHKilledBoss,"KiehlRoom"),0;
		cutin "kh_kiel01",2;
		mes "[]";
		mes " ..";
		mes "OxӤF?ݼˤlAO|ĨĪ^hF..ڥunAIWYo..";
		next;
		mes "[]";
		mes "O";
		mes "Qȭ̡AȮɥnZ";
		next;
		donpcevent "::OnKHSpiderWeb";
		mes "[̫]";
		mes "oO!!!ڭ̤WF..!!";
		next;
		cutin "kh_kiel03",2;
		mes "[]";
		mes "ȥ͡ANڬݤ@UAOa?";
		close2;
		cutin "",255;
		monster "kh_kiehl02",50,52,"",1733,1,"KiehlRoom::OnKiehlDead";
		hideonnpc "#Original";
		end;
	}
	else if ((KielHyreQuest == 100) && (getvariableofnpc(.KHKilledBoss,"KiehlRoom") == 1)) {
		cutin "kh_kiel02",2;
		mes "[]";
		mes "....";
		mes "O....ӤjNF..";
		mes "GMO";
		mes "eӪȬO@˪..";
		next;
		cutin "kh_kiel03",2;
		mes "[]";
		mes "....ڴNO";
		mes "A̳oǳåڵ쨫FAANMڥh֥@ɧaA...";
		mes "ڨSFڡA";
		mes "ӥuA̤~|ha...";
		mes "..";
		next;
		mapannounce "kh_kiehl02","HHHHHH~ oS~oSSS~ @~",bc_map,"0xFF0000";
		mes "[̫]";
		mes "!!!!";
		next;
		mes "[̫]";
		mes "!!!!onO! jաAQ_ӤF!!qo̥Xh!";
		next;
		mes "[]";
		mes "....ڭ̳ܦզua~";
		next;
		mes "[̫]";
		mes "AbFr!ЧA֨ϥ^FF0000 쬥^000000AʤO˸ma!!!!!";
		next;
		mapannounce "kh_kiehl02","ͱ~ n~",bc_map,"0xFF0000";
		mes "[]";
		mes " ڳQL̥ѤFALSYڡA֦z˸mHäOڰ...";
		mes "II";
		next;
		mes "[̫]";
		mes "?!DOO!";
		mes "Ӥ|O pڨǮaa!!";
		next;
		mes "[????]";
		mes " ....";
		mes "AO pڨǰ....";
		mes "ڦIڡA٬GN⥻LeXhﱵA..";
		next;
		mes "[̫]";
		mes "ְ! a!!";
		next;
		mes "[????]";
		mes " ...oִNڪnѱF?";
		next;
		mes "[̫]";
		mes "on...DO!!!";
		next;
		hideoffnpc "#Copy";
		next;
		cutin "kh_kiel01",0;
		mes "[]";
		mes "ILYFAnNAڨӥAСAڥs^0000FF 쬥^000000";
		next;
		mes "[̫]";
		mes "...|....^0000FF^000000|O!!";
		next;
		cutin "kh_kiel03",2;
		mes "[]";
		mes "....ݼˤlAOѰOFAڭ̬OHΰڡA^0000FF̫ ԭ^000000pj...";
		next;
		mes "[̫]";
		mes "???!A|DڦWrO...";
		next;
		mes "[]";
		mes "D....AHAHuA̤~Ҷ?";
		next;
		mes "[ékl]";
		mes "ܩpA̫pj";
		next;
		mes "[̫]";
		mes "GͶ㴵!";
		mes "A|...AO....eOFˡA`ΪH..";
		next;
		mes "[GͶ㴵]";
		mes "FzoI묹OLDA̫pjAJڭn]˫HpAӤ|MX{ڦҫHa?";
		next;
		mes "[̫]";
		mes " Ѱ.... No򻴩QLѤF... D`p`Υ...";
		next;
		mes "[]";
		mes " ....Qk~ۤFAuOӯhڡAͭ..";
		mes "IIAܥiӷQAh@IA{bɶѤhF";
		next;
		cutin "kh_kiel01",2;
		mes "[]";
		mes "{bz˸mwgҰʤFA5o̷|A^0000FF̫ ԭ^000000pjƱpڭ̤@_}";
		next;
		mes "[]";
		mes "ڹqoow`Υ͡AثeQkPܦn_";
		next;
		mes "[]";
		mes "^0000FF̫^000000pjNUpFAͭͰ!";
		mes "MnQkGe^h";
		next;
		mes "[GͶ㴵-ͭ]";
		mes ".......";
		next;
		mes "[̫]";
		mes "}!";
		mes " GͶ㴵!!";
		hideonnpc "̫#KiehlRoom";
		hideonnpc "n#KHAgent1";
		hideonnpc "n#KHAgent2";
		hideonnpc "n#KHAgent3";
		hideonnpc "n#KHAgent4";
		next;
		cutin "kh_kiel02",2;
		mes "[]";
		mes "ӡAo@znF...{bѤUH̨Ӳ@ѧa?";
		next;
		mes "[]";
		mes ".....iOo...nSѤUhlɶڡAAȥͬOInNաAMASɶѰ";
		next;
		cutin "kh_kiel04",2;
		mes "[]";
		mes "o̬ݼˤl֭n˶FAЧA֤@I}|An";
		next;
		mes "[]";
		mes "٦YMAwgӤFAiHڰe@§ڤ˶?";
		next;
		cutin "kh_kiel01",2;
		mes "[]";
		mes "ڷQڤ˷|sAӡAOQqڪ̮X^FF0000٫^000000a?ڲĤ@ݨoӮɧڤ]~F@j";
		next;
		mes "[]";
		mes "ڷQO@_Q~a..pp߳Qگ}aFܡADLnӫO....";
		next;
		mes "[]";
		mes "23~ӧAuWFAA{biH𮧤FA« ^0000FF^000000..";
		next;
		specialeffect EF_DEVIL;
		next;
		mes "[]";
		mes "ڬFܨSNANڪdbo}FAЧ^FF0000٫^000000X᮳ڤ˧a";
		next;
		mes "[]";
		mes "q˨̱o쪺{bٵLAq{b}lکMڤ˨S󪺫ýtYsbFAЧAiL";
		next;
		mes "[]";
		mes "ڤwgAOڤ˳]pϸ̩Үj2NHΰաAӬOۧڬo 4NڦF";
		next;
		mes "[]";
		mes "ozL L|zѪA{buѤU3FAڧXhA} ЧAI^ha..NAF..";
		delitem 7504,1; //Toy_Motor
		set KielHyreQuest,104;
		hideonnpc "#Copy";
		donpcevent "Kiehl_Room_Exit::OnEnable";			
		enablenpc "Kiehl_Room_Exit";
		initnpctimer;
		cutin "",255;
		close;
	}
	if (KielHyreQuest == 104) {
		cutin "kh_kiel02",2;
		mes "qʪ ^0000FF^000000W  ^FF0000٫^000000XӤF";
		getitem 7508,1; //Elysia_Ring
		set KielHyreQuest,106;
		close2;
		cutin "",255;
		end;
	}
	else{
		cutin "kh_kiel02",2;
		mes "uѤUʪ« ^0000FF^000000ߤF";
		close2;
		cutin "",255;
		end;
	}


OnTimer180000:
	stopnpctimer;
	mapannounce "kh_kiehl02","ͷNNN~",bc_npc,0xFF0000;
	donpcevent "KiehlRoom::OnReset";
	end;

OnTimer179000:
	mapannounce "kh_kiehl02","zuѤU1F",bc_npc,0xFF0000;
	end;

OnTimer178000:
	mapannounce "kh_kiehl02","zuѤU2F",bc_npc,0xFF0000;
	end;

OnTimer177000:
	mapannounce "kh_kiehl02","zuѤU3F",bc_npc,0xFF0000;
	end;

OnTimer176000:
	mapannounce "kh_kiehl02","zuѤU4F",bc_npc,0xFF0000;
	end;

OnTimer175000:
	mapannounce "kh_kiehl02","zuѤU5F",bc_npc,0xFF0000;
	end;

OnTimer170000:
	mapannounce "kh_kiehl02","zuѤU10F",bc_npc,0xFF0000;
	end;

OnTimer160000:
	mapannounce "kh_kiehl02","zuѤU20F",bc_npc,0xFF0000;
	end;

OnTimer150000:
	mapannounce "kh_kiehl02","zuѤU30F",bc_npc,0xFF0000;
	end;

OnTimer120000:
	mapannounce "kh_kiehl02","zuѤU1F",bc_npc,0xFF0000;
	end;

OnTimer60000:
	mapannounce "kh_kiehl02","zuѤU2F",bc_npc,0xFF0000;
	end;

OnTimer1000:
	mapannounce "kh_kiehl02","zuѤU3F",bc_npc,0xFF0000;
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; NPC for mob control, timers, and other junk.
//----------------------------------------------------------------------------
kh_kiehl02,1,1,0	script	KiehlRoom	-1,{
	end;

OnKiehlMobDead:
	set .KHKilled,.KHKilled+1;
	if (.KHKilled == 5) { 
		hideoffnpc "#Original"; 
	}
	end;

OnKiehlDead:
	set .KHKilledBoss,1;
	hideoffnpc "#Original";
	end;
	
OnReset:
	donpcevent "Kiehl_Room_Trap::OnGlobalTimerOff";
	if (getmapusers("kh_kiehl02") > 0)
		mapwarp "kh_kiehl02","lighthalzen",192,200;
	killmonsterall "kh_kiehl02";
	disablenpc "Kiehl_Room_Exit";
	hideonnpc "̫#KiehlRoom";
	hideonnpc "n#KHAgent1";
	hideonnpc "n#KHAgent2";
	hideonnpc "n#KHAgent3";
	hideonnpc "n#KHAgent4";
	hideonnpc "#Copy";
	hideoffnpc "#Original"; 
	set .KHKilledBoss,0;
	set .KHKilled,0;
	set getvariableofnpc(.KHTrapSprung,"Kiehl_Room_Trap"),0;
	set $@KHQuestBusy,0;
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; Mitchell and Agents. (Floating NPC + Duplicates)
//----------------------------------------------------------------------------
kh_kiehl02,49,55,6	script	̫#KiehlRoom	727,{
	end;
OnInit:
	hideonnpc "̫#KiehlRoom";
	end;

OnKHSpiderWeb:
	misceffect 404;
	end;
}

kh_kiehl02,53,52,4	script	n#KHAgent1	880,{
	end;
OnInit:
	hideonnpc "n#KHAgent1";
	end;

OnKHSpiderWeb:
	misceffect 404;
	end;
}

kh_kiehl02,51,49,1	script	n#KHAgent2	880,{
	end;
OnInit:
	hideonnpc "n#KHAgent2";
	end;

OnKHSpiderWeb:
	misceffect 404;
	end;
}

kh_kiehl02,47,50,0	script	n#KHAgent3	880,{
	end;
OnInit:
	hideonnpc "n#KHAgent3";
	end;

OnKHSpiderWeb:
	misceffect 404;
	end;
}

kh_kiehl02,46,53,6	script	n#KHAgent4	880,{
	end;
OnInit:
	hideonnpc "n#KHAgent4";
	end;

OnKHSpiderWeb:
	misceffect 404;
	end;
}


//----------------------------------------------------------------------------
// 򺸪ж; Copy of Kiehl.
//----------------------------------------------------------------------------
kh_kiehl02,48,53,6	script	#Copy	902,{
	end;

OnInit:
	hideonnpc "#Copy";
	end;
}

//----------------------------------------------------------------------------
// 򺸪ж; Kiehl_Room_Exit
//----------------------------------------------------------------------------
kh_kiehl02,50,59,0	script	Kiehl_Room_Exit	45,1,1,{
OnTouch:
	if (getmapusers("kh_kiehl02") < 1)
		donpcevent "KiehlRoom::OnReset";
	warp "lighthalzen",193,202;
	end;

OnEnable:
	misceffect 215;
	end;

OnInit:
	disablenpc "Kiehl_Room_Exit";
	end;
}

//============================================================================